Détecter une tabulation dans un fichier texte ?
skymath
Messages postés
16
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
21 août 2012
-
18 févr. 2002 à 16:34
jojoinc Messages postés 3 Date d'inscription mardi 19 juin 2001 Statut Membre Dernière intervention 18 mai 2004 - 23 août 2002 à 12:32
jojoinc Messages postés 3 Date d'inscription mardi 19 juin 2001 Statut Membre Dernière intervention 18 mai 2004 - 23 août 2002 à 12:32
4 réponses
cs_Fabian
Messages postés
36
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
6 février 2009
18 févr. 2002 à 18:27
18 févr. 2002 à 18:27
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]
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]
skymath
Messages postés
16
Date d'inscription
mardi 21 août 2012
Statut
Membre
Dernière intervention
21 août 2012
19 févr. 2002 à 09:19
19 févr. 2002 à 09:19
Merci, je devrais pouvoir me débrouiller avec ca :) .
cs_Fabian
Messages postés
36
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
6 février 2009
19 févr. 2002 à 11:04
19 févr. 2002 à 11:04
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.
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.
jojoinc
Messages postés
3
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
18 mai 2004
23 août 2002 à 12:32
23 août 2002 à 12:32
exactement ce que je cherchais...
merci de ton aide !!!
merci de ton aide !!!
