字符代码内容可以先使用RichTextBox保存为 .RTF 文件,再使用记事本开启查看代码内容。
如果数据库内要使用二进制保存,那就多一道过程、经过转换后再保存。
open "filename" for input as #1do
if eof(1) then exit do
line input #1,a
'a变量里已经是读取的一行。
'通过Split函数分解后拼SQL语句Insert到数据库里吧。Insert执行前要Connection连接什么的都OK了。
loop
close #1
1.使用文件来记录,下次运行时读取.2.使用数据库,可以考虑单机数据库或网络数据库 3.如果数据量小,使用注册表.或者可以通过程序来保存:
set fs=createobject("scripting.filesystemobject")'创建文件 *** 作对象
if fs.fileexists("C:\a.txt") then'如果C盘A.txt存在,那么读取其内容
set txt=fs.opentextfile("C:\a.txt",forreading,true)
set txtn=txt.readall
else'
set txtf=fs.createtextfile("c:\a.txt",true)'创建C盘下的a.txt
do'无限循环
wscript.sleep 1000'延时一秒
txtf.write a.text'写入文本框中内容
loop'循环结束
end if'判断结束
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)