Visual basic 6 -besoin d'aide pour la programmation

Question

bon voila, je sougaite faire un programme qui pourra fouller dans un document texte et pouvoir detecter les {\k} et lire les valeur qu'il y a dedans, puis les remplacer par autre chose, mais en m'indiquant la ligne de modification.

Ex: il cherche "{\k" et tombe sur "{\k20}" lit la valeur 20 et enregistre la ligne a laquelle il l'a lu, puis remplace le "{\k20}" par "(time 200)" et m'indique la ligne.
si il y avait eu "{\k45}", il aurrait remplacer par "(time 450)".

Voila j'espere avoir des solution a ce probleme car je ne trouve pas de solution.
Meme si ce sont des fonction qui s'en approch se n'est pas grave carelle me seron quand meme surement utile.
            Merci d'avance

cs_funseb · Answer

pour le debut tu fais :
i = 0
open "adresse du fichier" for input as #1
while not eof(1)
line input #1,tampon (met la ligne ds la variable tampon)
if instr(tamp, "{\k") then
lire 20 et remplacer (je vois pas comment on peut faire)liste.list(i) i + 1  ((i + 1) num de ligne que l'on place dans une liste) 
end if
i = i + 1
wend     
close #1

clac-clac

crenaud76 · Answer

Dim Ligne as String, i as long, j as long,Idx as long Open "Monfichier.txt" for input as #1 idx = 1 While not eof(1) Line Input #1,Ligne i = instr(Ligne,"{\k") While i <> 0 j = instr(Ligne,"}") Ligne = left$(Ligne,i-1) & "(time " & mid$(ligne,i+3,j-i-3) & ")" & mid$(ligne,j+1) i = instr(Ligne,"{\k") Msgbox "La ligne N°" & idx & " a été changé en " & vbcrlf & ligne,vbOkOnly Wend idx = idx +1 Wend Close #1 Cela devrait fonctionner ! J'ai supposer que tu pouvais avoir plusieurs "{\k...}" sur la meme ligne. Si ce n'est pas le cas, alors voila le code : Dim Ligne as String, i as long, j as long,Idx as long Open "Monfichier.txt" for input as #1 idx = 1 While not eof(1) Line Input #1,Ligne i = instr(Ligne,"{\k") if i <> 0 j = instr(Ligne,"}") Ligne = left$(Ligne,i-1) & "(time " & mid$(ligne,i+3,j-i-3) & ")" & mid$(ligne,j+1) Msgbox "La ligne N°" & idx & " a été changé en " & vbcrlf & ligne,vbOkOnly End if idx = idx +1 Wend Close #1 Christophe R.

cs_the_best · Answer

A part ça met pas "Visual basic 6 -besoin d'aide pour la programmation" mais un descritpion du prob.  :shock) 
The Best  :-p

darkfly001 · Answer

merci pour les source sa sera super pratique

Visual basic 6 -besoin d'aide pour la programmation

4 réponses

Discussions similaires