Discussion :

[kubiczek]

salut , je voudrait savoir comment comparer une chaine de caracetere.
1) le code doit ouvrir un fichier "toto.txt"
2)je doit lire la premiere ligne
3) retirer les infos que je souhaite (split)
4) merttre ses infos ds des varibles et les conserver
5) comparer si les variable sont identique a chaque ligne.(lie ligne par ligne et comparer sur chaque ligne)
6) si c'est identique modifier copier la ligne et la modifier sinon passer ligne suivante.
7)fermer fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
'variable
fic = "C:\toto.txt "
Dim de As Integer
uiop = FreeFile
Open fic For Input As #de
 Line Input #de, st
 
a = Split(st, ";")(0) 'demande le mot qui est en position 0
b = Split(st, ";")(2)
c = Split(st, ";")(4)
i = Split(st, ";")(5)

jusqua la partie 4 aucun pb.
le pb commence a la partie 5 je veux prendre les mots qui sont ds les variables et vérifier (ou comparer)si c mot apparaissent ds les autres ligne si c identique je modifie sinon je continue.merci de bien vouloire m'aider

[Vesta]

1) le code doit ouvrir un fichier "toto.txt"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
fr=Freefile
Open "toto.txt" as #fr For Input

2)je doit lire la premiere ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Line Input #fr, varLine

3) retirer les infos que je souhaite (split)
4) merttre ses infos ds des varibles et les conserver
5) comparer si les variable sont identique a chaque ligne.(lie ligne par ligne et comparer sur chaque ligne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 i=0
Do While Not EOF(fr)
    i=i+1
    Line Input #fr, varLine
    VarVariable1Ligne(i)=Split(varLine, ";")(0)
    VarVariable2Ligne(i)=Split(varLine, ";")(2)
    VarVariable3Ligne(i)=Split(varLine, ";")(3)
    VarVariable4Ligne(i)=Split(varLine, ";")(4)
Loop

6) si c'est identique modifier copier la ligne et la modifier sinon passer ligne suivante.
Donc par exemple tu stocke toute les lignes dans un tableau et si c'est ligne a ligne la comparaison, tu stocke dans une variable et tu compare direct

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 i=0
Do While Not EOF(fr)
    i=i+1
    Line Input #fr, varLine
    'Comparaison
    If VarVariable1Ligne=Split(varLine, ";")(0) Then
    Etc
    VarVariable1Ligne=Split(varLine, ";")(0)
    VarVariable2Ligne=Split(varLine, ";")(2)
    VarVariable3Ligne=Split(varLine, ";")(3)
    VarVariable4Ligne=Split(varLine, ";")(4)
Loop

7)fermer fichier