VB将输入的文本导入TXT 怎么做

额。。。你不是已经写好了么？

Private Sub Command1_Click()

    i = InputBox("输入账号", "一键卡QQ")

    d = InputBox("输入密码", "一键卡QQ")

    Open "C:\账户密码.txt" For Output As #1       'Output方式写文件，每次都会覆盖

        Print #1, "QQ账号:" & i & "  QQ密码：" & d

    Close #1

End Sub

有问题请追问，满意请采纳

这个功能要使用资源编辑器,

过程相对麻烦些.

打开VB后

精简版的应该不可以

菜单栏-外接程序-外接程序管理器-VB资源编辑器-加载(打上对号)

然后在标准按钮里找到

资源编辑器(位置大约在

菜单外接程序的下方)

打开后

添加自定义资源

添加后文件会被编号

如果没有使用过资源编辑器

文件编号应该是101

下面代码是以101文件作为例子的.

文件添加好后,

写入代码

Dim

TempDataPath

As

String

Private

Sub

Form_Load()

Dim

TempData()

As

Byte

TempDataPath

=

"释放临时文件的地址

格式如：c:\1.txt，使用完成后临时文件会删除"

TempData

=

LoadResData(101,

"CUSTOM")

'这是那个文件编号

101

Open

TempDataPath

For

input

As

#1

input

#1,

TempData

Close

#1

'这里可以打开释放出来的临时文件了，如：WindowsMediaPlayer1.Url

=

TempDataPath

End

Sub

Private

Sub

Form_Unload(Cancel

As

Integer)

Kill

TempDataPath

End

Sub

---