谢谢!在导入回来怎么办呢?
解决方案 »
- vista下/regserver出错:未预期错误,怎么解决?
- ADO问题
- 老大啊.app.path 获得的中文文件路径怎么不全呀,还把省略的部分用~来代替.感觉是在DOS操作了?
- 我的这句话有什么错误,请指教
- 谁开发过GPRS的短信程序 近来聊一聊阿
- VB做的dll文件功能实现问题
- 请问哪里有Windows 32 API的 集合类库“win.tlb”的下载?
- vb里打印的实现方法有哪几种!~大家讨论
- 请教,VB调用VC生成的DLL问题
- 请问大虾:VB中如何判断输入的为数值而非字母??
- vb 的msdn在哪下载?
- 有那位高手谁能告诉我"BlockInput"应该怎么用呀,用VB可以调用吗?能发给我一个范例吗?
dim frmPath as string
dim linecode as stringfrmPath = app.path & "\A.frm"frmCode = ""
open frmPath for input as #1
do uptil EOF(1)
input #1, linecode
frmCode = FrmCode & linecode & vbcrlf
loop
close #1
open app.Path & "\A.txt" for output as #2
print #2, FroCode
close #2'打开A.txt,就可以看到原始的代码(头部还包括一些VB属性设置代码)