vb6 - ファイル書き込み：キャリッジリターンとタブ

Question

こんにちは、私は VB6 が初めてで、これを実装したいと考えています。ユーザーがログインしているときに、名前とパスワードを入力すると、ファイルに書き込む必要があります。

ファイル「authentification.txt」は次のとおりです。ユーザー名パスワードの形式です。

   bill hope
   jessica 1234567 
   jhon 7654321

コードは次のとおりです。

Open "c:\authentification.txt" For Binary As #1
x = txtidentifiant.Text
y = txtmotdepasse.Text
Do While Not EOF(1)
Line Input #1, l
If l <> " " Then 
Put 1, i, x & vbNewLine
Put 1, i + 1, y & vbNewLine

Else
//here i want to implement a  carriage return in the file #1
End If
Loop

私の問題は、ファイルが次のように入力されbhope ている場合、最初の行のみが書き込まれることです

Answer 1

InputおよびPrintステートメントを使用する必要があります。それらはカンマ区切りのファイルを読み書きし、まさにそのようなアプリケーションのためにペアで使用するように設計されています。

Answer 2

新しいコードは次のとおりです。

Open "c:\authentification.txt" For Append As #1
x = txtidentifiant.Text
y = txtmotdepasse.Text
Print #1, x
Print #1, y
Close #1