recherche caracter séparé par vigule dans un fichier texteRésolu

Question

Bonsoir a tous,

je cherche a lire une chaine de caractere dans un fichier texte qui ressemble a cela:

105100;0


106100;0


107100;160


108100;20

le but etant de trouver le chiffre derriere un code par exemple trouver 160 derriere le code 107100 or je n'arrive pas a s&#233;parer tout &#231;a!
merci d'avance pour toute aide sur ce probleme!

|||CoBaLtOnE|||

cobaltone · Accepted Answer

Bon tout d'abord merci a tous, je difuse la source complete modifi&#233; ici 


dans un module :

Public Sub SearchF()
'un menu d&#233;roulant pour changer le type de code
If Form1.Combo1.Text = "cliquez ici" Then MsgBox "Le Type de Recherche doit etre d&#233;fini"



FF = FreeFile
code = Form1.Text1.Text  'le code a rechercher 
Dim pos As Integer
Dim Mafin As String
file = "" & Form1.Label15.Caption
    
    Open App.Path & "" & "stat" & file For Input As #FF
        Do While Not EOF(FF)
        Line Input #FF, ligne
            
If find = 1 Then GoTo stopsearch ' sortie de la boucle d&#232;s que le code est trouv&#233;
 If Left(ligne, 6) code Then pos InStr(ligne, ";")
If pos <> 0 Then  'pos = 7 dans cet exemple
   Mafin = Right(ligne, Len(ligne) - pos)
find = 1 'pour sortir de la boucle
Mafin = "Le r&#233;sultat pour la recherche sur " & Form1.Combo1.Text & " est : " & Mafin
Form1.console.Text = Mafin ' affichage du resultat dans un champs


End If
    
stopsearch:
        Loop



    Close #FF


End Sub



|||CoBaLtOnE|||

PCPT · Answer

on suppose Ligne as string = "107100;160"

dim pos as integer
dim MaFin as string
pos = Instr(Ligne, ";")
if pos<>0 then 'pos = 7 dans cet exemple
   MaFin=Right(Ligne, len(ligne)-pos)
endif

PCPT

mythic_kruger · Answer

autre fonction similaire &#224; la place de Right(): 

MaFin = Mid(ligne, pos + 1, Len(ligne) - pos)



encore une autre m&#233;thode:

Dim T() As String: T = Split(ligne, ";")

MsgBox T(1)

cobaltone · Answer

merci pour ces r&#233;ponsse, mais comme dans dis dans le message d'origine je n'ai pas la ligne "107100" j'ai des fichiers qui font pres de 40 lignes avec des codes diff&#233;rents tant que je n'arrive pas a isoler cette ligne savoir ce qu'il y ' a derriere le code 107100 est une partie de la solution; 
Si quelq' un sait comment s'arreter a la ligne en question puis l'isoler c 'est la qu'est mon vrai soucis !


merci d'avance! 

|||CoBaLtOnE|||

PCPT · Answer

il y a bcp de sources ici.
d&#232;s le d&#233;part, dis nous que tu n'arrives pas &#224; "lire" un fichier texte, et non pas laisser croire que tu y arrives mais es bloqu&#233; &#224; la s&#233;paration d'une ligne // caract&#232;re.

    FF = FreeFile
    
    Open App.Path & "\MonTxt.txt" For Input As #FF
        Do While Not EOF(FF)


            Line Input #FF, Ligne
            'et ici tu traites Ligne selon les posts ci-dessus...
        Loop
    Close #FF

PCPT

PCPT · Answer

If Form1.Combo1.Text = ...
si tu ne fais pas d'Exit Sub, ton MsgBox ne sert &#224; rien!

tu d&#233;clares "Pos", "Mafin", etc.. et "FF", nan?!! (et d'autres)

file = "\stat" & Form1.Label.... &#231;&#224; n'irait pas plus vite?!!

find=1 mal plac&#233;

etc....
PCPT

cobaltone · Answer

mon msgbox sert a avertir que la combobox n'as pas &#233;t&#233; modifi&#233;e
pour les d&#233;claration je ne les fait pas toujours; tu doit etre puriste, et je respecte cela, n&#233;amoins le code est fonctionel, vb s'occupe lui meme en compilant de d&#233;duire les d&#233;claration manquantes quand il le peut

oui pour file=.... 
&#231;a irait surement plus vite, mais de combien de millisecondes?
je m'en occuperait des que tout mon prog sera fonctionel

euh pour le placement de la variable find en quoi est elle mal plac&#233; &#231;a fonctionne chez moi !

y' a tant d' erreur que cela ?
si tu veut corriger j'accepterai ta r&#233;ponsse et enleverai l' autre.

merci bcp

cob.

mythic_kruger · Answer

Ne t'inqui&#232;te pas cobaltone c'est tr&#232;s bien comme &#231;a. Si tu as besoin d'aide n'h&#233;sites pas.

Recherche caracter séparé par vigule dans un fichier texte

8 réponses