emplacement sur une ligne de texte

boby · 3 Mai 2006

salut tout le monde
alors voila j ai un fichier texte sans lequel il ya des colonnes. et je ne souhaite copier que le troisieme colonnes. pour l instant ma macro ouvre le texte le lit et arrive meme a copier le texte qui se trouve a un certain emplacement (celui de la 3em colonne) grace a l operateur mid(a,b) qui copie le texte sur la ligne qui est en lu entre a et (a+b). le probleme est que cette emplacement risque de bouger. c est pour cela que je souhaite trouver le code qui pourrait me trouver l enchainement d'un vide d'une suite de caracteres puis d un autre vide. si vous avez d autres idées je suis prenant
merci

boby · 4 Mai 2006

ton fichier zip marche parfaitement

boby · 4 Mai 2006

je ne comprends pas la fonctio isnumeric. mmon les lignes de mon fichier texte ne commence pas par un chiffre mais par un espace. eske cela peut etre une cause de mauvais fonctionnement

Hervé · 4 Mai 2006

re

tu les donnes aux comptes gouttes les infos.

Sub Bouton1_QuandClic()
Dim ligne As String
Dim l As Integer

Open ActiveWorkbook.Path & '\\\\\\\\' & 'test.txt' For Input As #1 ' a adapter
Do While Not EOF(1)
Line Input #1, ligne
If IsNumeric(Mid(ligne, 2, 1)) Then
l = l + 1
Sheets('outputs').Cells(l, 1) = extraire(LTrim(ligne))
End If
Loop
Close #1

End Sub
'_________________________________________________
Public Function extraire(t As String) As String
Dim tablo()
Dim i As Byte

For i = 1 To Len(t)
If Mid(t, i, 1) = ' ' Then
x = x + 1
ReDim Preserve tablo(1 To x)
tablo(x) = i
End If
Next i

extraire = Mid(t, tablo(2) + 1)
End Function

La suite de l'aventure : boby et hervé font du vba

salut

boby · 4 Mai 2006

salut herve
maintenant ca copie toute la ligne.

Hervé · 4 Mai 2006

re

merci de nous fournir en pièce jointe un extrait de ton fichier txt

je commence à fatiguer de p....er du code.

salut

boby · 4 Mai 2006

sorry de ne pas l avoir fait plus tot

bovy · 4 Mai 2006

boby · 4 Mai 2006

[file name=blop.zip size=2112]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/blop.zip[/file]

Hervé · 4 Mai 2006

re

ce code fonctionne chez moi, a toi de le tester;

Sub Bouton1_QuandClic()
Dim ligne As String
Dim l As Integer

Open ActiveWorkbook.Path & '\\\\\\\\donnée\\\\\\\\' & 'test.dat' For Input As #1 ' a adapter
Do While Not EOF(1)
Line Input #1, ligne
ligne = Application.Trim(ligne)
If IsNumeric(Mid(ligne, 2, 1)) Then
l = l + 1
Sheets('outputs').Cells(l, 1) = extraire(ligne)
End If
Loop
Close #1

End Sub
'_________________________________________________
Public Function extraire(t As String) As String
Dim tablo()
Dim i As Byte
Dim x As Byte

For i = 1 To Len(t)
If Mid(t, i, 1) = ' ' Then
x = x + 1
ReDim Preserve tablo(1 To x)
tablo(x) = i
End If
Next i

extraire = Mid(t, tablo(2) + 1)
End Function

salut

emplacement sur une ligne de texte

boby

Guest

boby

Guest

boby

Guest

Hervé

XLDnaute Barbatruc

boby

Guest

Hervé

XLDnaute Barbatruc

boby

Guest

bovy

Guest

boby

Guest

Pièces jointes

Hervé

XLDnaute Barbatruc

Discussions similaires