Saut de ligne sur la , dans un input

phenojeff Messages postés 87 Date d'inscription jeudi 10 octobre 2002 Statut Membre Dernière intervention 4 avril 2008 - 1 mars 2003 à 07:39
phenojeff Messages postés 87 Date d'inscription jeudi 10 octobre 2002 Statut Membre Derniè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

et je ne trouve pas Merci

2 réponses

fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 3
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 ....

<center>http://www.fredlynx.com
</center>
0
phenojeff Messages postés 87 Date d'inscription jeudi 10 octobre 2002 Statut Membre Derniè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)
0
Rejoignez-nous