comment traduire un *R*

Question

je m'explique, j'ai deux listes, dans une va s'afficher par exemple (OI) R | ou (CI) W | ou (CI) R || ....
Je voudrais que lorsqu'il y a un R afficher Lecture dans l'autre liste donc sous dos on pourrait utiliser * pour dire qu'il y a quelque chose avant et après, mais sous VB c'est quoi qui pourrait remplacer *
Merci

jantonof · Answer

je pense qu il faut que tu parcours ta chaine caractere par caractere et tester si tu as un R ou non

for i=1 to len(ChaineCaractere) 
    lettre = Mid(ChaineCaractere, i,1)
    if lettre="R" then afficher lecture...
next i

jerms610 · Answer

j'ai esssayé ce que tu disais mais ça a pas l'air de marché vu que R ou W ... ne sont pas à la meme place suivant leur ligne, alors si tu as d'autres idées, n'hésite.
merci quand meme.

jantonof · Answer

donne moi un peu plus de detail sur ce que tu souhaite faire et je pourrais surement te venir en aide.
comment sont tes listes, que contiennent t'elles, je ne suis pas sur d'avoir compris ce que tu voulais dire...

jerms610 · Answer

le programme consiste à donner des autorisations de partage de dossier pour des utilisateurs en réseau.
Pour connaitre les autorisations precedentes, je fais appel a une fonction dos qui les liste dans un .txt, ensuite, de ce .txt, je l'ai mets en liste(1) mais cela apparait (OI)(CI)F | avec une ou plusieurs barres qui me genent et que je n'ai pas reussi a enlever avec MID$ ou INSTR ...l'affichage est different selon les autorisations. Mais pour l'utilisateur, il faudrait afficher dans une liste(2) ecriture ou lecture ou lecture/ecriture selon F, R ou W. Et dans une liste(3) afficher les autorisations sans la ou les barres "|" et que je puiisse ainsi appeler un programme DOS avec les bonnes variables.

cs_rene38 · Answer

Bonjour
et pourquoi pas, ce qui s'affiche s'appelant Texte :
If Instr(Texte, "R") Then ...
If Instr(Texte, "W") Then ...

boursicotteur · Answer

Pour enlever ces barres verticales, tu n'a qu'à utiliser l'instruction "replace" pour remplacer la barre verticale par un string vide.    Ex: String= replace(String, "|", "")

Comment traduire un R

6 réponses

Discussions similaires