怎样将txt文件加入vb程序，并在运行时调用

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

过程相对麻烦些.

打开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

如果你的这些txt文件名称是有规律的，比如1.txt、2.txt、3.txt、....10.txt，那么就可以这样：

for i=1 to 10

open app.path &"\" &i &".txt" for binary as #1

s=input(lof(1),#1)

'这时候s就是读出的文件内容，你可以在这里对s进行修改

put #1,1,s

close #1

’在这 里把s追加入数据库

next

这样就批量处理完了这10个文件了

如果文件名是没规律的，则可以这样：

d=dir(app.path &"\*.txt")

do while d<>""

open app.path &"\" &d for binary as #1

s=input(lof(1),#1)

'这时候s就是读出的文件内容，你可以在这里对s进行修改

put #1,1,s

close #1

’在这 里把s追加入数据库

d=dir

loop

这是批量处理同一目录的所有txt文件

TXT文件不是可执行文件，不能运行，只能用所关联的程序来打开它（通常是记事本程序）。

方法一：

运行("Notepad

c:\test.txt"，假)

'调用记事本程序打开C:\test.txt文件，将其中的c:\test.txt替换成你的txt路径

方法二：

执行

(#打开文件,

“c:\test.txt”,

,

,

)

'直接调用系统中与TXT文件关联的程序来打开它

---