maxsecurite2
Messages postés181Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention 9 avril 2010
-
18 juin 2007 à 20:21
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
18 juin 2007 à 20:51
Bonjour,
je suis en train de créer un petit programme mais je "bug" sur une partie voilà mon problème : j'aimerais que quand je clic sur command1 l'application cherche dans le contenu d'un fichier txt un chaine de caractère si il trouve pas cette chaine alors il ne fait rien mais si il la trouve alors il garde en mémoire la ligne dans laquelle se trouve cette chaine de caractère et affiche dans une textbox le contenu de cette ligne et pour finir il faudrait lire le contenu de cette ligne après le séparateur ";"
un ligne ressemble à sa "Configuration1 =ok Visible=non ;
oui"
pour faire simple:
1formulaire
1boutton
1textbox
si clic sur boutton alors chercher dans fichier texte une chaine de caractère si chaine trouvée alors enregistrer dans la mémoire ou se trouve cette chaine (quelle ligne) lire la dîtes ligne et enfin lire le contenu de cette ligne après le séparateur ";"
vraiment j'arrive pas à finir mon application et sa me gène alors je demande de l'aide à la sainte communauté Vbfrance ;)
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 18 juin 2007 à 20:27
Salut,
voilà :
Option Explicit
Private Sub ReadAllLines(ByVal sPath As String, ByRef aLines() As String)
Dim FF As Integer
Dim sBuffer As String
FF = FreeFile
On Error Resume Next
Open sPath For Input As #FF
sBuffer = Input(LOF(FF), #FF)
Close #FF
aLines = Split(sBuffer, vbNewLine)
End Sub
' exemple
d'utilisation
Private Sub Exemple()
Dim aMesLignes() As String, Dim MonMot() As String
Dim i As Long
Me.Print (1 + UBound(aMesLignes)) & " lignes trouvées" & vbCrLf
For i = LBound(aMesLignes) To UBound(aMesLignes)
If Instr(1, aMesLignes(i), Text1.Text)
Then
MonMot = Split(aMesLignes(i), ";")
MsgBox MonMot(1)
Exit For
End If
Next i
erase aMesLignes, erase MonMot
End Sub