begin process at 2012 02 15 05:57:12
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

Chaines de Caractères


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Chaines de Caractères

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ée 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

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,811 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales