2013-03-27 65 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