|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Chaines de Caractères [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (Moria)
 Informations & options pour cette discussion
lundi 26 août 2002 à 11:17:39 |
Chaines de Caractères
Moria
|
Slt, J'aurai 3 petites questions : 1°\ Comment savoir le nombre de caractère "|" dans une chaine de caractère ? 2°\ Comment ajouter un texte dans un fichier txt, mais a la suite d c il y a deja 3°\ Comment replacer une chaine de caractère ( xxx ) dans une phrase complete ( eeexxxeee ) Merci bcp
|
|
|
lundi 26 août 2002 à 12:41:56 |
Re : Chaines de Caractères
Gally
|
Slt,
1. for lngI=1 to Len(strChaine)
if mid(strChaine,lngI,1) = "|" then
intCount = intCoun +1
endif
next lngI
2. je sais plus et je regarde cette aprem
3. fait une fonction de modification du style "Public Function(byVal SrtChaine as string, byVal srtModif as string, byVal intPosition as integer)
si tu veux je peux voir pour te la faire cette fonction.
A++
[Gally Home Corp]
-------------------------------
Réponse au message :
-------------------------------
Slt,
J'aurai 3 petites questions :
1°\ Comment savoir le nombre de caractère "|" dans une chaine de caractère ?
2°\ Comment ajouter un texte dans un fichier txt, mais a la suite d c il y a deja
3°\ Comment replacer une chaine de caractère ( xxx ) dans une phrase complete ( eeexxxeee )
Merci bcp
|
|
|
lundi 26 août 2002 à 12:43:35 |
Re : Chaines de Caractères
imer
|
'1°/***********************************************
Dim i As Double
Dim p As Double
Dim chainesrc As String
Dim chainerech As String
chainesrc = InputBox("Chaine source?")
chainerech = InputBox("Chaine recherchée?")
i = 0
p = InStr(chainesrc, chainerech)
Do Until p = 0
i = i + 1
chainesrc = Mid(chainesrc, p + 1, Len(chainesrc) - p)
p = InStr(chainesrc, chainerech)
Loop
MsgBox i
'2°************************************************
Dim CheminFichier As String
Dim NumFichier As Long
Dim ContenuLigne As String
NumFichier = FreeFile
CheminFichier = InputBox("chemin du fichier ?", , "c:\test.txt")
ContenuLigne = InputBox("contenu de la ligne à écrire ?")
Open CheminFichier For Append As #NumFichier
Print #NumFichier, ContenuLigne
Close #NumFichier
MsgBox "Ligne écrite"
'3°/*************************************************
Dim positionDepart As Long
Dim ChaineReplace As String
Dim Chaine As String
Chaine = InputBox("Chaine de départ", , "xxx")
ChaineReplace = InputBox("Chaine de départ", , "eeeeee")
positionDepart = InputBox("Position dans la chaine", , "3")
ChaineReplace = Left(ChaineReplace, positionDepart) & Chaine & Right(ChaineReplace, Len(ChaineReplace) - positionDepart)
MsgBox ChaineReplace
|
------------------------------- Réponse au message : ------------------------------- Slt, J'aurai 3 petites questions : 1°\ Comment savoir le nombre de caractère "|" dans une chaine de caractère ? 2°\ Comment ajouter un texte dans un fichier txt, mais a la suite d c il y a deja 3°\ Comment replacer une chaine de caractère ( xxx ) dans une phrase complete ( eeexxxeee ) Merci bcp
|
|
|
lundi 26 août 2002 à 12:53:05 |
Re : Chaines de Caractères
Moria
|
Parfait !
Merci bcp !
Juste un pb....
Pour le 3 c pas trop ca...
J'ai ca : aze|qsd|wxc et apres ca donne ca : aze|123|wxc
@+
|
|
|
lundi 26 août 2002 à 14:01:16 |
Re : Chaines de Caractères
Gally
|
2. Open "Fichier" for Append as #Canal
[Gally Home Corp]
-------------------------------
Réponse au message :
-------------------------------
Slt,
1. for lngI=1 to Len(strChaine)
if mid(strChaine,lngI,1) = "|" then
intCount = intCoun +1
endif
next lngI
2. je sais plus et je regarde cette aprem
3. fait une fonction de modification du style "Public Function(byVal SrtChaine as string, byVal srtModif as string, byVal intPosition as integer)
si tu veux je peux voir pour te la faire cette fonction.
A++
[Gally Home Corp]
-------------------------------
Réponse au message :
-------------------------------
Slt,
J'aurai 3 petites questions :
1°\ Comment savoir le nombre de caractère "|" dans une chaine de caractère ?
2°\ Comment ajouter un texte dans un fichier txt, mais a la suite d c il y a deja
3°\ Comment replacer une chaine de caractère ( xxx ) dans une phrase complete ( eeexxxeee )
Merci bcp
|
|
|
lundi 26 août 2002 à 14:52:49 |
Re : Chaines de Caractères
imer
|
'3°/***********************************
Dim ChaineSource As String
Dim ElementRecherche As String
Dim ElementNouveau As String
Dim i_caract As Long
Dim Remplace As String
ChaineSource = InputBox("chaine d'origine ?", , "appelons un chien, un chien")
ElementRecherche = InputBox("chaine à remplacer ?", , "chien")
ElementNouveau = InputBox("nouvelle chaine ?", , "chat")
For i_caract = 1 To Len(ChaineSource)
If Mid(ChaineSource, i_caract, Len(ElementRecherche)) = ElementRecherche Then
Remplace = Remplace & ElementNouveau
i_caract = i_caract + Len(ElementRecherche) - 1
Else
Remplace = Remplace & Mid(ChaineSource, i_caract, 1)
End If
Next i_caract
MsgBox Remplace
-------------------------------
Réponse au message :
-------------------------------
Parfait !
Merci bcp !
Juste un pb....
Pour le 3 c pas trop ca...
J'ai ca : aze|qsd|wxc et apres ca donne ca : aze|123|wxc
@+
|
|
|
lundi 26 août 2002 à 19:54:45 |
Re : Chaines de Caractères
leneuf22
|
Pour remplacer un morceau d'une chaine de caractères par une autre, il y a une fonction que peu de monde connait :
Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String
Servez-vous de l'explorateur d'objets !
-------------------------------
Réponse au message :
-------------------------------
2. Open "Fichier" for Append as #Canal
[Gally Home Corp]
-------------------------------
Réponse au message :
-------------------------------
Slt,
1. for lngI=1 to Len(strChaine)
if mid(strChaine,lngI,1) = "|" then
intCount = intCoun +1
endif
next lngI
2. je sais plus et je regarde cette aprem
3. fait une fonction de modification du style "Public Function(byVal SrtChaine as string, byVal srtModif as string, byVal intPosition as integer)
si tu veux je peux voir pour te la faire cette fonction.
A++
[Gally Home Corp]
-------------------------------
Réponse au message :
-------------------------------
Slt,
J'aurai 3 petites questions :
1°\ Comment savoir le nombre de caractère "|" dans une chaine de caractère ?
2°\ Comment ajouter un texte dans un fichier txt, mais a la suite d c il y a deja
3°\ Comment replacer une chaine de caractère ( xxx ) dans une phrase complete ( eeexxxeee )
Merci bcp
|
|
|
Cette discussion est classé dans : caractère, chaine, chaines, caractères
 Répondre à ce message
 Sujets en rapport avec ce message
Supprimer les caractères non imprimable d'une chaine [ par nihaoma ]
Bonjour,Dans un programme que je suis en train de faire, j'extrait une chaine de caractère d'un fichier binaire, le pb c'est que cette chaine comporte
Chaine de caractères [ par schub1015 ]
Bonjour,J'aimerais savoir comment à partir d'une chaine de caractère contenant n'importe quel caractère, on peut me prendre en compte que ce qu'il est
Chaine de caractère dans requete ACCESS [ par Sly03 ]
Bjr tout le monde,Qqn connait-il une fonction pour extraire une chaine de caractères sous ACCESS dans une requete ???Exemple : SELECT FonctionExtraire
Compression d'une chaine de caractère. [ par juli1m ]
bonjour,j'aimerais pouvoir compresser une chaine de 9 caractères (constituée uniquement de chiffres : 130405301), et j'aimerais que, une fois compress
Lire entre deux chaines [ par erik17 ]
Bonjour, je suis débutant (j'apprend tout seul) et j'ai un probleme pour lire une valeur entre deux chaine diférente, par exemple :Une textbox contien
Problème de chaine de longueur fixe [ par sebastden ]
Bonjour, Pour pouvoir utliser la DLL d'une application, je suis obligé de déclarer certaines chaines de caractère de longueur fixe en VB.net. (ex : Pu
remplacer des caractères dans une chaine de caractères [ par jimmypage64 ]
je voudrai remplacer un caractère dansune chaine de caractère. En fait je voudrai par exemple remplacer le ":" dans "8:00" par une "," ce qui me donne
Chaine de caractère avec des caractères " [ par geko321 ]
Bonjour, je travaille en vb à partir d'accès, et je désirerais, dans le but d'executer des commandes dos, trouver le moyen d'ajouter des " " dans
Problème chaîne de caractères [ par e040098k ]
Bonjour, J'ai un problème lorsque je récupére une chaine de caractère contenu dans un champ de formulaire. C'est un chemin d'accès que j'ai moi même
extraction de caractères d'une chaine [ par hela_bouks ]
Salut,Si j'ai par exemple une chaine de caractère J2 et une chaine de caractère J15. Je ne voudrai garder que le 2 et le 15. Comment éliminer le J? Me
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
HTC G1
Entre 449€ et 449€
|