Comment lire et écrire des valeurs de texte délimité par des virgules pour fichier dans 6.0

Question

VB D'accord, nous allons dire que j'ai fichier texte d'échantillon qui comprend certaines valeurs séparées par des virgules comme ceci:

-1,0,3,0,5,4,6,7,8,9 

Et je veux faire un programme en VB 6.0 qui ouvre ce fichier, lisez les valeurs et les stocker dans des variables qui sont affichées dans les zones de texte comme si (par exemple):

Name: [ Value -1 ] 
Nationality: [ Value 0 ] 
Experience: [ Value 3 ] 

et ainsi de suite ..

alors, quand je Chancé ces valeurs dans la programmez les zones de texte et cliquez sur enregistrer le fichier - il enregistre le fichier avec les nouvelles valeurs. Est-ce simple. Merci les gars !

Answer 1

(Note: cette réponse est en supposant que le fichier texte ne contient qu'une seule ligne.)

Tout d'abord, vous devez lire le fichier texte:

Dim rawData as string 

Dim sFileText as String 
Dim FileNo as Integer 
FileNo = FreeFile 
Open "C:\test.txt" For Input As #FileNo 'you should change the file path 
Line Input #FileNo, sFileText 'read the whole line 
rawData = sFileText 'store the first line of the text file in 'rawData' 
Close #FileNo 

Ensuite, vous devez diviser le rawData par les virgules:

Dim data() as string 'an array that will hold each value 
data = Split(rawData, ",") 'split 'rawData' with a comma as delimiter 

maintenant, la première valeur est stockée dans les données (0), deuxième données (1), etc.

En ce qui concerne le bouton « fichier de sauvegarde », vous pouvez faire quelque chose comme:

Dim newData as String 
newData = data(0) & "," & data(1) & "," & data(2) 'etc. 

Puis write it to a file.

Answer 2

Le fichier sera automatiquement délimité par des virgules si vous faites ceci:

Write #filenumer Value1, Value2, Value3... 

Ensuite, vous pouvez utiliser # d'entrée pour obtenir une valeur à un moment ou entrée de ligne pour les obtenir à la fois.