VB 如何将文本附加到 TXT 文档

以下假设是现有文件是 d： 文件。

现在将 text1 控件中的文本追加到现有文件：

private sub command1_click()open "d:\" for append as #1 '在追加到追加模式下打开文件。

print #1, '添加换行符以防止原始文档末尾没有换行符。

print #1, now '在添加新内容的时间添加一个空的答案行，如果不需要，请将其删除或注释。

print #1,close #

end sub

在外观下，+ 输入。

print#1,vbcrlf

print#1,text1 'Text1 是 Xunzen VB 中的 Text1 文本文件控件。

close#

这很简单，将 c： cang 更改为您自己的文件路径。

private sub form_load()open "c:\cang_"然后 volt 作为 print 1 附加，chr（13）。

for i = 1 to 10

print #1, rnd

next i

close #

msgbox "用 C： Cang 给孙昭添加了 Zen Guess"

end sub

'每个人都是对的，我会把它变成最简单的。

添加窗体 form1、buttons command1、command2，然后添加以下内容**：

private sub command1_click()shell "cmd /c echo abc > c:\", 0end sub

private sub command2_click()shell "cmd /c echo defg >>c:\", 0end sub

这是如何做到的：

1. 将 text1 控件添加到窗体中，并将上面的文本复制到其中;

dim i as integer

i=freefile

open "c:\" for output as #iprint #i,close #i

private

subbutton1_click()

将其作为输出打开，请参阅此处的路径问题。

c:\"它指的是要输出到哪个文件。

foroutput 表示打开模式为输出模式。

这样，如果文件存在，它就会被覆盖。

由于打开文件需要占用工作空间，因此请在工作空间 1 中打开文件

c:\"foroutput

在文档 1 中打开的文件中写 ABC

print#1,"abc"

关闭工作区 1。

close#1'任务完成并详细解释，有意义吗？

command1:

open "abc" for output as #1command2:

print #1, "defg"

不要忘记在程序末尾添加结束语

作为文件编号。 请注意，稍后将在打印中使用数字。 由于程序可以同时打开多个文件，因此编号不会在打印时产生错误的文件。

由于 1 表示您在缓冲区中对文件进行了“编号 1”

缓冲区是内存中的一块空间，在写入硬盘之前进行缓冲，并在硬盘装满后立即存储在硬盘上。

数字为 1 后，“1”将来将用于指代该文档。 例如：print 1，"abc"，即写入它"abc"。

通常，最大数量为 256。

当然，“编号”是一个更口语化的术语。

open "c:\" for output as #1print #1,close #

将 text1 写入 C： 文件。

楼上都很结实。

特别是，385762哥哥的方法非常有创意和令人敬畏，他甚至想到了使用批处理来做到这一点。

private

subtext1_change()

opend:\"

foroutput

as#print

#1,text1

close#1end

sub' 它仍然是最简单的。 如果删除了文本的内容，数据也会被删除，只要文本的内容发生了变化，它也会发生变化。

cmd1 中。

open "（在此处输入完整路径，例如 c：、不要错过引号、不要用括号）。" for output as #1 '打开 如果它已经存在，请用新的替换旧的，如果您不想替换它并想继续在文本末尾书写，请将输出更改为附加

print #1, '文本 1.

close #1 '闭嘴，小樱说白点被保存了。

— 脊柱———

cmd2 中。

— 雀类———

open "（在此处输入完整路径，例如 c：、不要错过引号、不要用括号）。" for output as #

close #2 '删除？ 然后不要输入任何东西，它是空白的。

从一个按钮开始。

private

subcommand1_click()

openc:\"

foroutputas#

print#1,close#

endsub

直接写入，所有原始数据将被覆盖。

private

subcommand1_click()

openc:\"

print#1,close#

endsub

追加写入，写入后的原始数据，不会破坏原始数据的搜索蠕虫坏皮肤泄漏。

如果燃烧器没有"c:\"，两者都会自动创建一个新文件。

使用附加的 mold celery mu type： example** 写入文件，如下所示：

dim i as integer, n as integer, a(6) as integer

for i = 1 to n

a（i） =int（rnd * 1000 + 1）双打印 1， a（i）.

next i

close #

写一个文件，用额外的 Wu 模式拾取前面的答案段落：示例**如下：银牌声誉。

dim i as integer, n as integer, a(6) as integer

for i = 1 to n

a(i) =int(rnd * 1000 + 1)print #1, a(i)

next i

close #

将 1234 分配给变量 a

ABCD 分配给变量 B

c=b & a，这样 c 就是你想要的，你可以用 C 的内容替换原来的文件。