pb avec une chaine de caracteres

Question

Salut!

Je suis en train de realiser un fichier texte avec mon interface VB et il faut pour cela que je recupere des infos d'un autre fichier texte que je lis ligne par ligne. Le pb c'est que des fois je veux recuperer seulement une partie de la ligne...un exemple sera + parlant:
ds mon 1er fichier txt je lis les lignes
   VOICE_FILE=chemin1 puis 
   FAX_FILE=path2et je voudrais recuperer la chaine de caracteres a droite du (il faut remarquer que je ne peux pas utiliser Mid ou Right de la ligne lue car a droite et a gauche du je n'ai pas tjs le meme nb de caracteres). 
Je pensais lire les caracteres 1 par 1  jusqu'au signe = et enregistrer les caracteres suivants dans une nouvelle chaine.
Je voulais savoir si il existe des fonctions pour faire ca ou si qq'un a une autre idee, je suis prends!!!
Merci d'avance.

Ickik · Answer

bonjour,le mieux est de faire des tests de caracteres jusqu'au signe puis de recuperer ce qui est a droite du  , comme tu l'as dit
voila un petit exemple

for i = 0 to len(chaine) step 1 
if mid(chaine,i;1) = "=" then
chaine_a_droite = right(chaine, len(chaine)-i-1)
endif
next i 

A+

cs_cissou06 · Answer

Merci de ton aide, je vais essayer ca.

Lakhnois · Answer

perso je te conseil d'utiliser Instr(depart, Text, TextATrouver) associé a Mid ;)

Instr de renvoie un integer designant la positionde TextATrouver ds Text et 0 si il a pas trouver

MonString = Mid(Text, Instr(1, Text, "=")+1, len(Text)-Instr(1, Text, "="))

et faut le dir, ça fai son ptit effet quand on voi ça ;)

Ickik · Answer

ou alors
monstring = right (chaine, len(chaine)-instr(1,chaine,"=")-1)

cs_rene38 · Answer

ou encore
MonSlip = Mid(Chaine, Instr(Chaine, "=") + 1)

cs_cissou06 · Answer

Ca marche, encore merci!

Ickik · Answer

la, je crois qu'on pourra pas faire plus court

Pb avec une chaine de caracteres

7 réponses

Discussions similaires