1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
Dim Lireligne As String, partie As String
Dim Enreg1 As String, Enreg2 As String
Dim i2 As Integer, i3 As Integer
Dim lgligne As Integer, numbuf1 As Integer, numbuf2 As Integer
'ouvrir le fichier texte
numbuf1 = FreeFile
'changer le chemin et nom du fichier suivant...
Open "C:\Cor\Fic1.txt" For Input As #numbuf1
numbuf2 = FreeFile
'changer le chemin et nom du fichier suivant...
Open "C:\Cor\resultat.txt" For Output As #numbuf2
Do While Not EOF(numbuf1)
'lire la 1èreligne
Input #numbuf1, Lireligne
lgligne = Len(Lireligne)
Lireligne = Lireligne & " "
'initialiser les variables
i3 = 1
i2 = 0
'traitement de la ligne
Do While i2 < lgligne
i2 = InStr(i3, Lireligne, " ")
partie = Mid(Lireligne, i3, i2 - i3)
i3 = i2 + 1
Enreg1 = " ldi r16, $" & partie
Enreg2 = " rcall TX_master"
'ecrire dans le 2e fichier texte
Print #numbuf2, Enreg1
Print #numbuf2, Enreg2
Loop
Loop
Close |
Partager