2013-03-27 44 views
0

您好我是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 它只寫第一行

+0

注意,你應該考慮的問題都存儲用戶名和密碼 – 2013-03-27 11:03:49

+0

的'做,當Not'是混淆負邏輯更安全的方法。 '直到'看起來更清晰。 – Bob77 2013-03-27 17:51:48

回答

2

您應該使用InputPrint語句。他們讀取和寫入逗號分隔的文件,並且被設計爲成對使用,僅用於這樣的應用程序。

+0

請有你有用的鏈接教程 – AmiraGL 2013-03-27 10:11:58

+2

有大量的信息。只要做一個「VBA文件io」或類似的網頁搜索。 VBA是比VB6更好的關鍵字,以避免觸及大量VB.Net頁面。重要的一點是輸入和輸出語句可以按照相應的對進行排列。 – 2013-03-27 10:30:41

+0

完成了很多謝謝:) – AmiraGL 2013-03-27 10:31:38

0

這裏的新代碼:

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

使用您可以使用的製表符分隔它們:打印#1,x&vbTab&y – Hrqls 2013-03-27 13:09:19

+0

在兩行上打印x和y。如果您在第一個打印語句中附加分號,輸出將看起來像您示例中的文本。但主要規則是您的輸入語句應該與您的打印語句匹配。 – 2013-03-27 15:02:37

相關問題