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

Hervé · 3 Mai 2006

bonjour boby

ce type de code récupère les données de la troisieme colonne d'un fichier txt, si les données sont bien séparées par un espace (sinon à adapter) :

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

Open 'C:\\\\\\\\test.txt' For Input As #1 ' a adapter
Do While Not EOF(1)
Line Input #1, ligne
l = l + 1
Cells(l, 1) = Split(ligne, ' ')(2)
Loop
Close #1

End Sub

salut

Message édité par: hervé, à: 03/05/2006 10:52

boby · 3 Mai 2006

merci bcp encore une foi

bobby · 3 Mai 2006

voila ce que je fais :

Sheets('outputs').Cells(1 + i, 1) = Split(ligne, ' ')(2)
'Sheets('outputs').Cells(1 + i, 1).Value = Mid(ligne, 24, 12)
i = i + 1

mais ca ne marche pas il dit ne pas connaitre split
que dois j faire

Hervé · 3 Mai 2006

re

Serais-tu en xl97 ?

si oui c'est normal la méthode split n'est pas compatible avec cette version, essaye comme ceci :

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

Open 'C:\\\\\\\\test.txt' For Input As #1 ' a adapter
Do While Not EOF(1)
Line Input #1, ligne
l = l + 1
Sheets('outputs').Cells(l, 1) = extraire(ligne)
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, tablo(3) - tablo(2))
End Function

salut

boby · 3 Mai 2006

tu as reponse a tout c magnifique. merci

boby · 3 Mai 2006

re
j ai un petit probleme il bug sur:'extraire = Mid(t, tablo(2) + 1, tablo(3) - tablo(2))' et le message est 'subscript out of range'

Hervé · 3 Mai 2006

re

il me semblait bien que tu t'avancais un peu en me disant que c'est magnifique.

ton souci doit venir du fait que tu n'as pas toujours dans ton txt le meme nombre données par ligne.

merci de me fournir un extrait significatif de ton txt.

salut

boby · 3 Mai 2006

voici une partie du texte mais il y a plusieurs chapitres. je ne pouvais pas tout le mettre il esst trop long

E L E M E N T O U T P U T

THE FOLLOWING TABLE IS PRINTED AT THE INTEGRATION POINTS FOR ELEMENT TYPE PIPE31H AND ELEMENT
SET EL_PIPE

ELEMENT PT FOOT- ESF1
NOTE

1 1 -3.9287E+05
2 1 -3.9287E+05
3 1 -3.9287E+05
4 1 -3.9287E+05
5 1 -3.9287E+05
6 1 -3.9287E+05
7 1 -3.9287E+05
8 1 -3.9287E+05
9 1 -3.9287E+05
10 1 -3.9287E+05

Hervé · 3 Mai 2006

re

si tu veux recuperer les -3.9287E+05

essayes ceci :

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

Open 'C:\\\\\\\\test.txt' For Input As #1 ' a adapter
Do While Not EOF(1)
Line Input #1, ligne
If IsNumeric(Mid(ligne, 1, 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

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

mais c'est en aveugle encore une fois.

salut

boby · 4 Mai 2006

j ai un pbm avec la ligne suivante

extraire = Mid(t, tablo(2) + 1, tablo(3) - tablo(2))

pourras tu encore un fois trouver la solution. merci d avance

Hervé · 4 Mai 2006

re

voir mon message d'hier à 16h37

re salut

boby · 4 Mai 2006

scuz
j suis un peu fatigué. en plus ca fait bien 1h que j suis sur le code.
merci

boby · 4 Mai 2006

mais ca ne marche pas. sorry

Hervé · 4 Mai 2006

re

ca va m'aider :' mais ca ne marche pas. sorry'

ci-joint un zip comprenant un .xls et un .txt, dézippe les deux fichiers dans le meme repertoire, ouvre le .xls, et appuis sur le bouton.

si tu n'a pas de résultat en colonne A, merci de m'indiquer le résultat que tu as, sinon le message d'erreur.

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

emplacement sur une ligne de texte

boby

Guest

Hervé

XLDnaute Barbatruc

boby

Guest

bobby

Guest

Hervé

XLDnaute Barbatruc

boby

Guest

boby

Guest

Hervé

XLDnaute Barbatruc

boby

Guest

Hervé

XLDnaute Barbatruc

boby

Guest

Hervé

XLDnaute Barbatruc

boby

Guest

boby

Guest

Hervé

XLDnaute Barbatruc

Pièces jointes

Discussions similaires