ARENIUS
Messages postés16Date d'inscriptionjeudi 27 janvier 2005StatutMembreDernière intervention 8 décembre 2005
-
25 oct. 2005 à 14:14
ARENIUS
Messages postés16Date d'inscriptionjeudi 27 janvier 2005StatutMembreDernière intervention 8 décembre 2005
-
25 oct. 2005 à 15:09
Bonjour à tous,
Voila je suis un gros débutant en VB alors excusez mes questions qui peuvent sembler triviales à certains
Voila j'ai ouvert un fichier texte en lecture et je cherche à aller à la dernière ligne de celui ci et y rechercher ensuite la chaîne de caractère "défaut". Si la chaîne défaut est trouvée il faudra alors lancer une fonction.
Quelle est la manière la plus simple de faire ça ?
Quelqu'un m'a suggéré d'utiliser le fileobjectsystem et l'object textstream mais ceux ci ne sont pas présents sur VB 6.0 à moins que je me trompe...
Merci
A+
A voir également:
Aller à la dernière ligne d'un fichier texte et recherche une chaine de caractér
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 25 oct. 2005 à 14:44
salut,
[VB6]
tu lis tout le fichier dans une variable.
tu cherches le dernier retour chariot (donc début de la dernière ligne)
tu cherches la position de ton mot.
si la position est > 0, alors il existe.
Option Explicit
'
'
Private Sub Command1_Click()
Dim FF As Integer, sMonFichier As String, sDerniereLigne
FF = FreeFile
' reçoit fichier complet
Open "C:\truc.txt" For Input As #FF
sMonFichier = Input (LOF(FF), 1)
Close #FF
' retourne la dernière ligne
' ATTENTION, on cherche pas au 1er carac, car souvent fichier terminé par VbCrLf
' donc... ligne vide
sDerniereLigne = Right$(sMonFichier, Len(sMonFichier) - InStrRev(sMonFichier, vbCrLf, 2) - 1)
' cherche "défaut"
If InStr(1, sDerniereLigne, "défaut") > 0 Then
MsgBox "ouaip, trouvé", 32
Else
MsgBox "nan, y'a pas...", 32
End If
End Sub