文本框editbox中的内容写入txt，或word ？怎么实现？

fargood 2005-09-15 04:55:28

可以实现写入，txt或是word，但是，我需要的是，我写入的内容，能够自由的保存，（可以选择保存在哪个盘符，可以对保存的文件命名），这该怎么实现

请各位高手指点，本人是个新手，学的东西很多，请帮助，谢谢

...全文

234 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

VBDN 2005-09-17

打赏
举报

把代码作如下修改即可，不用做引用
Private Sub Command1_Click()
Dim fso, txtfile, fil, ts, s
Set fso = CreateObject("scripting.filesystemobject")
Set txtfile = fso.createtextfile("c:\testfile.txt", True)
txtfile.Close
MsgBox "正在写入文件"
Set fil = fso.getfile("c:\testfile.txt")
Set ts = fil.openastextstream(2)
ts.write "hello world"
ts.Close
Set ts = fil.openastextstream(1)
s = ts.readline
MsgBox s
ts.Close
End Sub

liuxicheng 2005-09-17

打赏
举报

谢谢大哥

liuxicheng 2005-09-16

打赏
举报

怎么引用“microsoft scripting runtime”

northwolves 2005-09-15

打赏
举报

不是告你了么,需要先引用"microsoft scripting runtime"

liuxicheng 2005-09-15

打赏
举报

请教各位大哥
小弟使用file system objects 读取文件，要从一个文本文件中读取数据，程序如下：
Private Sub Command1_Click()
Dim fso As New filesystemobject, txtfile, fil As File, ts As textstream
Set txtfile = fso.createtextfile("c:\testfile.txt", True)
MsgBox "正在写入文件"
Set fil = fso.getfile("c:\testfile.txt")
Set ts = fil.openastextstream(forwriting)
ts.write "hello world"
ts.Close
Set ts = fil.openastextstream(forreading)
s = ts.readline
MsgBox s
ts.Close
End Sub
程序运行后出现如下提示：

编译错误：
用户定义类型未定义

请问是什么原因？

northwolves 2005-09-15

打赏
举报

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine ("This is a test.")
a.Close

用这段程序，我可以实现写入数据到txt中，但是，我需要的是，写入的时候，能够弹出对话框，能够选择保存的盘符，还有自己命名。就像常见的保存文件一样
该怎么实现？

Private Sub Command1_Click()
CommonDialog1.InitDir = "d:\"
CommonDialog1.FileName = "123.txt"
CommonDialog1.Filter = "文本文件(*.txt)"
CommonDialog1.ShowSave
End Sub

----------------------
简单点,可以用一个COMMONDIOLOGBOX 实现

northwolves 2005-09-15

打赏
举报

编译错误：
用户定义类型未定义
请问是什么原因？

需要先引用"microsoft scripting runtime"

liuxicheng 2005-09-15

打赏
举报

fargood 2005-09-15

打赏
举报

shanlisong 2005-09-15

打赏
举报

'新建一个txt文件
Dim objCreateTxtFile As Object
Dim a
Set objCreateTxtFile = CreateObject("Scripting.FileSystemObject")
Set a = objCreateTxtFile.CreateTextFile(文件路径, TXT名称, True)
a.Close
Set objCreateTxtFile = Nothing
' 写入txt文件
Open 刚才创建的TXT名称全路径 For Binary As #1
Put #1, , 要写的内容
Close #1

1、操作符（ && ）被用来说明两个条件同为真的情况。2、接口只能定义方法，实现要由（类）完成。3、任何事物都是（对象），它可以是现实世界中的一个物理对象，可以是抽象的概念或规则。4、（ += ）运算符将左右操作数相加的结果赋值给左操作数。5、（ Array ）是所有数组的基类。6、如果一个属性里既有set访问器又有get访问器，那么该属性为（读写）属性。7、如果一个属性里只有set 访问器，那么该属性为（　只写　）属性。8、常量通过关键字（ const ）进行声明。9、在C#中，进行注释有两种

161、在C#程序中，显示一个信息为“This is a test!45、在C#的类结构中，class关键字前面的关键字是表示访问级别，下面哪个关键字的访问级别是表示只有在同一个程序集内，且内部类型或成员才是可访问的?255、类声明后，可以创建类的实例，创建类的实例要使用（new）关键字，类的实例相当于一个变量，创建类的实例的格式如：（类名对象名= new 对象名（））139、在定义类时，如果希望类的某个方法能够在派生类中进一步进行改进，以处理不同的派生类的需要，则应将该方法声明为（virtual）。

一、填空： 1、操作符（ && ）被用来说明两个条件同为真的情况。 2、接口只能定义方法，实现要由（类）完成。 3、任何事物都是（对象），它可以是现实世界中的一个物理对象，可以是抽象的概念或规则。 4、（ += ）运算符将左右操作数相加的结果赋值给左操作数。 5、（ Array ）是所有数组的基类。 6、如果一个属性里既有set访问器又有get访问器，那么该属性为（读写）属性。 7、如果一个属性里只有set 访问器，那么该属性为（　只写　）属性。 8、常量通过关键字（ const

消息钩子函数入门 Windows 系统是建立在事件驱动的机制上的，说穿了就是整个系统都是通过消息的传递来实现的。而钩子是 Windows 系统中非常重要的系统接口，用它可以截获并处理送给其他应用程序的消息，来完成普通应用程序难以实现的功能。钩子可以监视系统或进程中的各种事件消息，截获发往目标窗口的消息并进行处理。这样，我们就可以在系统中安装自定义的钩子，监视系统中特定事件的发生