在VB中如何写程序可以获得打开的记事本程序并写入内容

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

在VB中如何写程序可以获得打开的记事本程序并写入内容

谢谢

解析:

用shall（path（，windowtype））命令能打开程序

用open file for as 能打开文件

print # 向文件写入数据

close # 关闭文件

用命令 shell

shell "你所打开的目录"

如果要打开 C:\1exe

就是 shell "C:\1exe"

apppath &相当于取运行目录

shell apppath &　"\1exe"

这个就是打开取运行目录下的程序，比如说你编译的程序运行在C盘，那么shell apppath &　"\1exe"就相当于 shell "C:\1exe"

千万不要忘记“\”符号

下面所举的例子均假设F盘下有一个名为dtxt的文本文件，若需要尝试这些例子请作相应的改动。

一、用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取: Private   Sub   Command1_Cliack() Dim   sA   As   String     65400   '声明定长String变量   Open   "F:\dtxt "   For   Binary   As   #1   '用二进制打开文件 Get   #1,   ,   sA   '用Get语句从文件中获取字节 Text1   =   sA   '显示打开的文件 Close   #1   '关闭文件 End   Sub；

二、先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过Get语句将文件全部数据存储到变量中，从而达到获取整个文件字节数的目的。

此法可以打开大于32K的文件，但应该注意的是，装载文件的容器必须能装载大于32K的文件，下例用RichTextBox控件显示打开的文件： Private   Sub   Command1_Click()   Dim   sA   As   String Open   "f:\dtxt "   For   Binary   As   #1 sA   =   Space(LOF(1))   '用空格填充sA变量 Get   #1,   ,   sA   '用Get语句获取文件全部内容 RichTextBox1Text   =   sA Close   #1 End   Sub；

三、用StrConv函数将文件的控制字符串数据和Unicode码之间进行转换，从而达到打开文件的目的。可打开任意大小文件。

再给一个简单例子： Private   Sub   Command1_Click() Open   "f:\dtxt "   For   Input   As   #1 RichTextBox1Text   =   StrConv(InputB$(LOF(1),   1),   vbUnicode) Close   #1 End   Sub；

四、用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)： Shell   "NotePadEXE   f:\dtxt ",vbNormalFucus；

五、用RichTextBox控件自身的LoadFile属性打开文件： RichTextBox1LoadFile   "f:\dtxt ",   rtfText。

可以把你要打开的那个些程序的可执行文件放在和你的过程文件同一个文件夹（或者更深级别的文件夹）中，然后在那个代码中使用相对路径取得那些可执行文件名打开就可以了，这样不管你要打开的那些程序放在什么地方，这样和你的工程文件的相对位置保持不变，就不会有问题的，有必要时可以将VB工程文件生成可执行文件，然后制作成免安装程序，这样即使到了没有安装VB6的电脑上，也可以正常运行的，必要时将那个免安装文件的运行文件创建一个快捷方式图标放到桌面上就可以了，挺简单的。引用相对路径打开程序的代码如下（假如你要打开的程序可执行文件放在和VB工程文件同级别的“程序”文件夹中）：

Private

Sub

登陆_Click()

X

=

Shell(AppPath

&

"\程序\updateexe",

1)

End

Sub

以上就是关于在VB中如何写程序可以获得打开的记事本程序并写入内容全部的内容，包括:在VB中如何写程序可以获得打开的记事本程序并写入内容、VB如何打开exe应用程序、VB编程如何打开和关闭EXCEL文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！