Chaines de Caractères

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

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

'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

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

@+

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

'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

@+

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