Détecter une tabulation dans un fichier texte ?

Signaler
Messages postés
16
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
21 août 2012
-
Messages postés
3
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
18 mai 2004
-
bonjour,
je voudrais savoir s'il est possible de détecter une tabulation dans un fichier texte ?
merci d'avance de votre réponse (si c pas possible répondez moi non svp que je ne cherche pas pour rien :) )

4 réponses

Messages postés
36
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
6 février 2009

Après avoir lu la ligne de ton fichier texte, tu peux utiliser la focntion Instr qui te renverra la position du caractère de tabulation (si il y en a un) , sinon elle renverra 0

Voici un bref exemple.

Sub FindTab(strte As String)

Dim strFileName As String
Dim strLineOfText As String

strFileName = "MONFICHIER"

' Ouvrir le fichier en Input.
Open strFileName For Input As #1

' Lire le fichier jusqu'à la fin de celui-ci
Do While Not EOF(1)
' Line Input #1, strLineOfText

If InStr(1, strte, vbTab) <> 0 Then
' vbTab = Chr(9)
' Traitement souhaité si on trouve un Tab
SearchUserName = strLineOfText
End If
Loop
' Fermer le fichier
Close #1
End Sub

Attention, tu ne trouveras que la première occurence du tab.

En espérant t'avoir aidé.

A+

[mailto:Fabian@Internet.lu Fabian]
Messages postés
16
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
21 août 2012

Merci, je devrais pouvoir me débrouiller avec ca :) .
Messages postés
36
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
6 février 2009

Erratum: Il y a quelques fautes dans le code que j'ai déposé. En effet, j'ai mis deux codes en 1. Voici donc une version corrigée

Sub FindTab()

Dim strFileName As String
Dim strLineOfText As String

strFileName = "MONFICHIER"

' Ouvrir le fichier en Input.
Open strFileName For Input As #1

' Lire le fichier jusqu'à la fin de celui-ci
Do While Not EOF(1)
Line Input #1, strLineOfText

If InStr(1, strLineOfText, vbTab) <> 0 Then
' vbTab = Chr(9)
' Traitement souhaité si on trouve un Tab

End If
Loop
' Fermer le fichier
Close #1
End Sub

Sorry pour les inconvénients.
Messages postés
3
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
18 mai 2004

exactement ce que je cherchais...

merci de ton aide !!!