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)

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

Membre Club
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

Membre Club

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


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


HTC G1

Entre 449€ et 449€


Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,515 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.