phenojeff
Messages postés87Date d'inscriptionjeudi 10 octobre 2002StatutMembreDernière intervention 4 avril 2008
-
1 mars 2003 à 07:39
phenojeff
Messages postés87Date d'inscriptionjeudi 10 octobre 2002StatutMembreDernière intervention 4 avril 2008
-
2 mars 2003 à 02:29
Dans mon fichier txt il y a des , et ca fait des saut de ligne
comment ne pas faire de saut de ligne sur la ,
exe:
fichier txt=
#DEFINE LED1 PORTA,0
ca me donne dans mon fichier vb
#DEFINE LED1 PORTA
0
et la , elle n'est plus la
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 1 mars 2003 à 09:37
il faut changer le mode d'ouverture du fichier...
ouvrir en binaire.
Exemple
Dim DataFichier as string
Dim Lignes as string
NumFichier = FreeFile
Open NomFichier For Binary As #NumFichier
DataFichier = space(NumFichier)
Get #NumFichier, 1, DataFichier
close NumFichier
Lignes = Split(datafichier, vbCrLf)
Voilà un exemple tu obtiens un tableau avec toutes les lignes du fichier teste ....
phenojeff
Messages postés87Date d'inscriptionjeudi 10 octobre 2002StatutMembreDernière intervention 4 avril 2008 2 mars 2003 à 02:29
Voila la routine que je fait le test .
mais des que j'ai une virgule dans mon text ca fait un saut de ligne, que je ne veux pas avoir mais je veux verifier ligne par ligne dans mon program mais je ne voie pas pourquoi
Dim LFile As Long 'Lecture
Dim OFile As String 'Fichier à ouvrir
Dim Ligne As String 'Ligne
OFile = "C:\PICRS\MOTOR.ASM"
LFile = FreeFile
Open OFile For Input As #LFile
Do 'début de boucle
Input #LFile, Ligne
Text1.Text = Text1.Text & vbNewLine & Ligne
Loop Until EOF(LFile)