Copier fichier TXT / Aller Dernière Ligne / Trouver valeurs
Résolu
lipon67
Messages postés
8
Date d'inscription
samedi 15 mai 2004
Statut
Membre
Dernière intervention
2 mai 2005
-
2 mai 2005 à 09:38
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 4 mai 2005 à 14:59
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 4 mai 2005 à 14:59
A voir également:
- Copier fichier TXT / Aller Dernière Ligne / Trouver valeurs
- Derniere ligne non vide vba ✓ - Forum Visual Basic 6
- Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic
- Chronomètre en ligne - Forum Java
- Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè ✓ - Forum Visual Basic 6
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
5 réponses
lipon67
Messages postés
8
Date d'inscription
samedi 15 mai 2004
Statut
Membre
Dernière intervention
2 mai 2005
4 mai 2005 à 13:41
4 mai 2005 à 13:41
Ca y est, j'ai trouvé la solution !
Grâce aux nombreux posts sur le forum, aux sources disponibles sur le site (notamment http://www.vbfrance.com/code.aspx?ID=20794), et à l'aide de ceux qui ont bien voulu m'aider (crenaud76) j'ai réussi à écrire le code qu'il me fallait... il est là :
'************************************************************************************
' Fonction Asplit qui me servira à éclater ma ligne pour chercher les infos qu'il me faut
'************************************************************************************
Private Function ASplit(ByVal sWhat As String, ByRef sSeparators() As Variant) As Variant
Dim N As Long, L As Long
Dim vSep As Variant
Dim aOut() As Variant
ReDim aOut(0)
L = 1
For N = 1 To Len(sWhat)
For Each vSep In sSeparators
If Mid(sWhat, N, Len(CStr(vSep))) = CStr(vSep) Then
aOut(UBound(aOut)) = Mid(sWhat, L, N - L)
ReDim Preserve aOut(UBound(aOut) + 1)
L = N + 1
End If
Next
Next N
aOut(UBound(aOut)) = Mid(sWhat, L)
ASplit = aOut
End Function
'************************************************************************************
Private Sub Form_Load()
Dim texte As String 'sert à stocker le fichier tsv
Dim derligne As String 'recopie ma string texte pour la traiter
'Dim i As Long 'nécessaire si utilisation de la boucle mise en commentaire plus bas
'Dim T() As String 'nécessaire si utilisation de la boucle mise en commentaire plus bas
Open "c:\local.tsv" For Input As #22 'ouverture du fichier local.tsv pour la lecture
Do While Not EOF(22) 'jusqu'à la fin de mon fichier
Line Input #22, texte 'recopie la ligne en cours de lecture dans texte
Loop 'effectue la boucle --> texte contient alors la dernière ligne du fichier
derligne = texte 'utilisation de derLigne pour le traitement sur ma string
'MsgBox derligne 'pour vérifier en mode pas à pas que derLigne contient bien ce qu'on souhaite
'************************************************************************************
'boucle permettant d'afficher un après l'autre les champs de derligne (non utilisé donc commentaire)
'T = Split(derligne, Chr(34) + vbTab + Chr(34)) ' Eclate la ligne (séparateur guillemet tabulation guillemet)
'For i = 0 To UBound(T) ' Parcours tous les éléments du tableau
' MsgBox T(i) ' Affiche la i ème valeur de T, donc de la ligne
'(Attention, i commence à zéro)
'Next
'n'est pas utilisé dans mon programme car cette boucle donne la dernière valeur mais ne permet pas telle qu'elle est de stocker T(i) dans une variable différente à chaque passage dans la boucle
'************************************************************************************
'***** Utilisation de la fonction Asplit définie au début du code *****
Dim asSeparators() As Variant
Dim asTerms() As Variant
asSeparators = Array(Chr(34)) 'notre séparateur est "
asTerms = ASplit(derligne, asSeparators) 'ici on sépare derligne selon "
' renvoie :
MsgBox "FrCLocal : " + asTerms(3) 'nous donne le 3 ème membre de derligne (FreeSpace C)
MsgBox "FrDLocal : " + asTerms(5) 'FreeSpaceD
'***** Fin d'utilisation de la fonction Asplit *****
Close #22 'fermeture du fichier local.tsv
End Sub
___________________________
Pour tester mon code, il suffit de lancer l'analyseur de performance et de créer un journal de compteur. Ajouter les compteurs qu'il vous faut. Dans le format d'enregitrement, il faut mettre TSV (données séparées par tabulations). Ensuite il faut remplacer "c:\local.tsv" par l'emplacement de votre fichier TSV...
___________________________
Merci encore à tous ceux qui m'ont aidé... également à quelques membres de www.developpez.com où j'avais mis le même post !
a+
Grâce aux nombreux posts sur le forum, aux sources disponibles sur le site (notamment http://www.vbfrance.com/code.aspx?ID=20794), et à l'aide de ceux qui ont bien voulu m'aider (crenaud76) j'ai réussi à écrire le code qu'il me fallait... il est là :
'************************************************************************************
' Fonction Asplit qui me servira à éclater ma ligne pour chercher les infos qu'il me faut
'************************************************************************************
Private Function ASplit(ByVal sWhat As String, ByRef sSeparators() As Variant) As Variant
Dim N As Long, L As Long
Dim vSep As Variant
Dim aOut() As Variant
ReDim aOut(0)
L = 1
For N = 1 To Len(sWhat)
For Each vSep In sSeparators
If Mid(sWhat, N, Len(CStr(vSep))) = CStr(vSep) Then
aOut(UBound(aOut)) = Mid(sWhat, L, N - L)
ReDim Preserve aOut(UBound(aOut) + 1)
L = N + 1
End If
Next
Next N
aOut(UBound(aOut)) = Mid(sWhat, L)
ASplit = aOut
End Function
'************************************************************************************
Private Sub Form_Load()
Dim texte As String 'sert à stocker le fichier tsv
Dim derligne As String 'recopie ma string texte pour la traiter
'Dim i As Long 'nécessaire si utilisation de la boucle mise en commentaire plus bas
'Dim T() As String 'nécessaire si utilisation de la boucle mise en commentaire plus bas
Open "c:\local.tsv" For Input As #22 'ouverture du fichier local.tsv pour la lecture
Do While Not EOF(22) 'jusqu'à la fin de mon fichier
Line Input #22, texte 'recopie la ligne en cours de lecture dans texte
Loop 'effectue la boucle --> texte contient alors la dernière ligne du fichier
derligne = texte 'utilisation de derLigne pour le traitement sur ma string
'MsgBox derligne 'pour vérifier en mode pas à pas que derLigne contient bien ce qu'on souhaite
'************************************************************************************
'boucle permettant d'afficher un après l'autre les champs de derligne (non utilisé donc commentaire)
'T = Split(derligne, Chr(34) + vbTab + Chr(34)) ' Eclate la ligne (séparateur guillemet tabulation guillemet)
'For i = 0 To UBound(T) ' Parcours tous les éléments du tableau
' MsgBox T(i) ' Affiche la i ème valeur de T, donc de la ligne
'(Attention, i commence à zéro)
'Next
'n'est pas utilisé dans mon programme car cette boucle donne la dernière valeur mais ne permet pas telle qu'elle est de stocker T(i) dans une variable différente à chaque passage dans la boucle
'************************************************************************************
'***** Utilisation de la fonction Asplit définie au début du code *****
Dim asSeparators() As Variant
Dim asTerms() As Variant
asSeparators = Array(Chr(34)) 'notre séparateur est "
asTerms = ASplit(derligne, asSeparators) 'ici on sépare derligne selon "
' renvoie :
MsgBox "FrCLocal : " + asTerms(3) 'nous donne le 3 ème membre de derligne (FreeSpace C)
MsgBox "FrDLocal : " + asTerms(5) 'FreeSpaceD
'***** Fin d'utilisation de la fonction Asplit *****
Close #22 'fermeture du fichier local.tsv
End Sub
___________________________
Pour tester mon code, il suffit de lancer l'analyseur de performance et de créer un journal de compteur. Ajouter les compteurs qu'il vous faut. Dans le format d'enregitrement, il faut mettre TSV (données séparées par tabulations). Ensuite il faut remplacer "c:\local.tsv" par l'emplacement de votre fichier TSV...
___________________________
Merci encore à tous ceux qui m'ont aidé... également à quelques membres de www.developpez.com où j'avais mis le même post !
a+
lipon67
Messages postés
8
Date d'inscription
samedi 15 mai 2004
Statut
Membre
Dernière intervention
2 mai 2005
2 mai 2005 à 11:16
2 mai 2005 à 11:16
Copie des fichiers :
FileCopy "[file://\\Serveur1\PerfLogs\Serveur1.tsv \\Serveur1\PerfLogs\Serveur1.tsv]", "D:\Analyse\Serveur1.tsv"
Ouverture d'un fichier pour consultation
Open Serveur1.tsv For Input As #10
Déjà ça de fait... reste encore d'autres choses à faire !
FileCopy "[file://\\Serveur1\PerfLogs\Serveur1.tsv \\Serveur1\PerfLogs\Serveur1.tsv]", "D:\Analyse\Serveur1.tsv"
Ouverture d'un fichier pour consultation
Open Serveur1.tsv For Input As #10
Déjà ça de fait... reste encore d'autres choses à faire !
lipon67
Messages postés
8
Date d'inscription
samedi 15 mai 2004
Statut
Membre
Dernière intervention
2 mai 2005
2 mai 2005 à 11:30
2 mai 2005 à 11:30
Replace (maDerniereLigne, """, "")
me permet de virer les guillemets dans une chaine de caractère... donc il me supprime tous les guillemets dans ma derniere ligne, de ce fait, la date et l'heure ne font plus un mais deux éléments. En passant par cette opération, on a converti un TSV généré sous 2k/2k3 au même format qu'un TSV généré sous NT... et ça nous simplifie le reste du programme... mais c'est toujours trop compliqué pour moi.
Dès que je trouve une solution, je la balance sur mon topic, comme ça les gens qui veulent m'aider savent à quel niveau j'en suis.
D'avance merci
me permet de virer les guillemets dans une chaine de caractère... donc il me supprime tous les guillemets dans ma derniere ligne, de ce fait, la date et l'heure ne font plus un mais deux éléments. En passant par cette opération, on a converti un TSV généré sous 2k/2k3 au même format qu'un TSV généré sous NT... et ça nous simplifie le reste du programme... mais c'est toujours trop compliqué pour moi.
Dès que je trouve une solution, je la balance sur mon topic, comme ça les gens qui veulent m'aider savent à quel niveau j'en suis.
D'avance merci
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
2 mai 2005 à 17:25
2 mai 2005 à 17:25
Il doit te manquer des notions sur la fonction Split(), qui te permet d'éclater une ligne selon un séparateur donné (la tabulation pour toi) dans un tableau .
Ex :
Dim T() as string ' Déclare un tableau de string
Dim i as Long
T = Split(LaLigneàEclater, vbTab) ' Eclate la ligne
For i = 0 to UBound(T) ' Parcours tous els item du tableau
Msgbox T(i) ' Affiche la i ème valeur de T, donc de la ligne
'(Attention, i commence à zéro)
Next
Voila de quoi avancé un peu plus ...
Christophe R
Ex :
Dim T() as string ' Déclare un tableau de string
Dim i as Long
T = Split(LaLigneàEclater, vbTab) ' Eclate la ligne
For i = 0 to UBound(T) ' Parcours tous els item du tableau
Msgbox T(i) ' Affiche la i ème valeur de T, donc de la ligne
'(Attention, i commence à zéro)
Next
Voila de quoi avancé un peu plus ...
Christophe R
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
4 mai 2005 à 14:59
4 mai 2005 à 14:59
Pense à mettre une "réponse Accepté", histoire que le post passe en vert, cela facilite les recherche pour de futurs visiteurs du forum qui aurait le même problème que toi à la base ...
Christophe R
Christophe R