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.
-------------------------------
Réponse au message :
-------------------------------
Merci, je devrais pouvoir me débrouiller avec ca
.
-------------------------------
Réponse au message :
-------------------------------
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+
Fabian-------------------------------
Réponse au message :
-------------------------------
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
)