fatimazahra86
Messages postés16Date d'inscriptionvendredi 8 juin 2007StatutMembreDernière intervention17 juin 2009
-
23 avril 2009 à 09:04
fatimazahra86
Messages postés16Date d'inscriptionvendredi 8 juin 2007StatutMembreDernière intervention17 juin 2009
-
3 mai 2009 à 13:51
je veux effacer un mots apres le dernier separateur dans chaque lignes d'un fichier text.
et je veux eliminer les espace unitiles dans chaque ligne d'un fichier text.
j'ai essayer la fonction trim mais elle efface seulement les espaces inutiles à l'intérieure du text et le dernier espace dans le text.
je ss pas, elle ne detecte pas le saut de ligne.
je veux b1 une conseil à ce propos.
merci
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 27 avril 2009 à 13:35
pourquoi tu joues avec ce 'Essai2'
pas besoin d'ajouter des RichTextbox pour manipuler des fichiers, fort heuresement.
n'oublie pas de spécifier le caractère a utiliser pour séparer les élements à joindre via Join
chr(10) => utilises VbCrLf
j'ai pas compris ta boucle de suppressio des espaces a droite...
pourquoi ne pas utiliser RTrim$ ? (surtout que derrière, tu fais un Trim)...
de tête, je dirai:
Dim iFile As Integer
Dim xsLines() As String
Dim i As Long
iFile = FreeFile
Open "C:\List1.text" For Input As #iFile
xsLines = Split(Input(LOF(iFile), #iFile), vbNewLine)
Close #iFile
For i = 0 To UBound(xsLines)
xsLines(i) = RTrim$(xsLines(i))
Next i
iFile = FreeFile
Open "C:\List2.txt" For Output As #iFile
Print #iFile, Join(xsLines, vbNewLine);
Close #iFile