A voir également:
- Substitution de lignes
- Vba commenter plusieurs lignes ✓ - Forum Visual Basic
- Question idiote : mise en commentaire de plusieures lignes ✓ - Forum ASP / ASP.NET
- VBA Excel : Commentaire ✓ - Forum Visual Basic 6
- Label sur plusieurs lignes ✓ - Forum Visual Basic
- Vscode commenter plusieurs lignes ✓ - Forum C# / .NET
2 réponses
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
14 avril 2011 à 17:35
14 avril 2011 à 17:35
Bonjour,
Exemple de script, à translater en vb6.
jean-marc
Exemple de script, à translater en vb6.
Option Explicit
Const FileInfileTxt = "D:\Test_VBFrance.txt"
Const FileOutfileTxt = "D:\Test_VBFrance_Result.txt"
Const strAddLine = "LLLLLLLLLLLLLL"
Dim strHeader : strHeader = Chr(88) 'X
Dim objFso, objTextFile, objDico
Dim strLine
Dim i, intCount
intCount=0
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFso.OpenTextFile(FileInfileTxt, 1)
Set objDico = CreateObject("Scripting.Dictionary")
Do While Not objTextFile.AtEndOfStream
strLine = objTextFile.ReadLine
intCount = intCount+1
'La key du dictionnaire est le compteur de lignes
'Left, Instr .
If Left(strLine, 1) = strHeader Then
'Ajout ligne d en-tete
objDico.Add intCount , strLine
Else
'Ajout ligne courante et ligne "LLLLLLL"
objDico.Add intCount, strLine & vbCrLf & strAddLine
End if
Loop
objTextFile.Close
'ecriture du fichier
Set objTextFile = objFso.CreateTextFile(FileOutfileTxt)
For i=1 To objDico.Count
objTextFile.WriteLine objDico(i)
Next
objTextFile.Close
Set objDico = Nothing
Set objTextFile = Nothing
Set objFso = Nothing
jean-marc
Utilisateur anonyme
15 avril 2011 à 08:37
15 avril 2011 à 08:37
Merci Jean-Marc, ça marche impec !
Je ne connaissais pas l'instruction CreateObjet qui à l'air bien pratique.
Encore Merci.
Vincent.
Je ne connaissais pas l'instruction CreateObjet qui à l'air bien pratique.
Encore Merci.
Vincent.
