nitroptik
Messages postés50Date d'inscriptionsamedi 5 octobre 2002StatutMembreDernière intervention13 mai 2007
-
13 mai 2007 à 07:08
erefdatacomputing
Messages postés165Date d'inscriptionmardi 7 mars 2006StatutMembreDernière intervention24 avril 2018
-
17 mai 2007 à 15:08
Bonjour !
J'ai un fichier .txt qui contient 6 lignes, comment faire pour placer les 6 lignes dans 6 variables differentes ?
dim a as string
dim b as string
dim c as string
dim d as string
dim e as string
dim f as string
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 13 mai 2007 à 07:30
Bonjour,
En utilisant LineInput à la lecture, certes,
mais également en consultant la tétrafloppée + 15 sources, snippets et sujets ouverts à ce propos !
Utilise donc, s'il te plait, le moteur de recherche !!
cs_Fraggy
Messages postés95Date d'inscriptionlundi 9 juin 2003StatutMembreDernière intervention 2 juin 2010 16 mai 2007 à 11:21
Salut,
Je n'ai pas VB au travail. je n'ai donc pas pu tester ce bout de code, mais si je ne me suis pas trompé dans mon code, cela devrait fonctionner.
Private Sub ReadTxtFile()
Dim a As String, b As String; c As String; d As String; e As String; f As String
Dim sLine As String
Dim i As Interger
i =1
Open "test.txt" For Input As #1
Do
Line Input #1, sLine
If sLine <> vbNullString Then
Select Case i
Case 1
a = sLine
Case 2
b = sLine
Case 3
c = sLine
Case 4
d = sLine
Case 5
e = sLine
Case 6
f = sLine
End Select
i = i + 1
End If
Loop Until EOF(1)
Close #1
End Sub
Si tu as besoin de ces variables en dehors de cette fonction, il te faudra soit déclarer tes variables (a,b,c,d...) en "public" dans un module, soit les déclarer tout en haut de ton code (en dessous de "Option Explicit")
cs_Fraggy
Messages postés95Date d'inscriptionlundi 9 juin 2003StatutMembreDernière intervention 2 juin 2010 16 mai 2007 à 12:52
cboulas,
qu'il utilise une DB, un XML, ou un TXT, cela revient au même, il doit dans tout les cas, importer ca dans ses variables, puisque c'est cela qu'il demande.
cs_Fraggy
Messages postés95Date d'inscriptionlundi 9 juin 2003StatutMembreDernière intervention 2 juin 2010 16 mai 2007 à 13:58
Disons que dans le cas présent, ta méthode n'est pas des meilleures, car je crois comprendre que 15955 nitroptik est encore relativement nouveau avec VB6. Je ne dis pas que ma méthode est la meilleure qu'il soit, mais elle aura les avantages suivants pour son apprentissage :
- Lire un fichier ligne par ligne,
- Apprendre Do-Loop-EOF,
- Tester si la ligne contient quelque chose, ou si elle vide,
- Apprendre à utiliser un Select Case,
Ici, il travail déjà avec un fichier TEXTE.
Pour ta méthode, cela inclus qu'il sache déjà créer un fichier XML, ce dont je doute qu'il sache faire.
Ma méthode comprend plus de ligne de code, mais elle reste rapide ;-)
Un expert (voir un admin) améliorera surement les lignes de codes que j'ai mis pour aider =15955 nitroptik.