在VB:如何使用文件对话框加载文本文件

你可以把变量abc替换下面的各个路径名称

方法一:

用定长的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

1在Windows“记事本”中输入格式化文本，每个数据项之间会被空格隔开，当然你也可以用逗号、分号、Tab键作为分隔符。输入完成后，保存此文本文件并退出;2在Excel中打开刚才保存的文本文件，出现“文本导入向导-3步骤之1”对话框，选择“分隔符号”，单击“下一步”;3在“文本导人向导-3步骤之2”对话框中选择文本数据项分隔符号，Excel提供了Tab键、分号、逗号以及空格等供你选择。注意，这里的几个分隔符号选项应该单选。你在“预览分列效果”中可以看到竖线分隔的效果。单击“下一步”;4在“文本导人向导-3步骤之3”对话框中，你可以设置数据的类型，一般不需改动，Excel自动设置为“常规”格式。“常规”数据格式将数值转换为数字格式，日期值转换为日期格式，其余数据转换为文本格式。单击“完成”按钮即可。

去下载超级模块：

版本 2

支持库 spec

支持库 eAPI

局部变量 主句柄

局部变量 子句柄组, , , "0"

主句柄 ＝ 强力取句柄 (“来自网页的消息”)

枚举子窗口 (主句柄, 子句柄组)

调试输出 (取窗口标题 (子句柄组 [3])) ' 通常信息框的内容为第三个

// IOtestjava

import javaawt;

import javaio;

import javaawtevent;

public class IOtest extends Frame implements ActionListener{

       private Frame f;

     private TextArea ta;   //ta用于显示打开的内容

     private Button btn;

     private FileDialog fd;

     private File file1 = null;

     //构造函数开始

      public IOtest(){

           btn = new Button("打开");

           ta = new TextArea(5,50);

           btnaddActionListener(this);//给按钮添加事件监听器

             }

             //给按钮添加行为

      public void actionPerformed(ActionEvent e){

          if (egetSource()==btn) { //单击打开按钮时   

                fd = new FileDialog(f,"Open",FileDialogLOAD);

                fdsetVisible(true);   //创建并显示打开文件对话框

              //if ((fdgetDirectory()!=null) && (fdgetFile()!=null)) {

                try {   //以缓冲区方式读取文件内容

                  file1 = new File(fdgetDirectory(),fdgetFile());

                    FileReader fr = new FileReader(file1);

                    BufferedReader br = new BufferedReader(fr);

                    String aline;

                    while ((aline=brreadLine()) != null)//按行读取文本

                    taappend(aline+"\r\n");

                    frclose();

                    brclose();

                  }

               catch (IOException ioe){

                  Systemoutprintln(ioe);

                }

              }

           //}

      }

      public static void main(String []args){

           IOtest iof = new IOtest();//创建并初始化IOtest对象iof

           iofshow();

      }

          public void show()

         {

            f = new Frame("读入文件测试");         //初始化对象f

            fsetSize(500,300);                //设置窗口f的大小

            //设置布局管理器为FlowLayout

           fsetLayout(new FlowLayout(FlowLayoutLEFT,30,20));

           fadd(btn);   

           fadd(ta);               

           //为窗口f添加WindowListener监听器

           faddWindowListener(new WindowAdapter(){

                      public void windowClosing(WindowEvent evt){ //实现windowClosing方法

                        fsetVisible(false);         //设置窗口f不可见

                        fdispose();            //释放窗口及其子组件的屏幕资源

                        Systemexit(0);            //退出程序

                    }

                });

                fsetLocation(200,200);

        fsetVisible(true);                //设置窗口f可视

    }

}

以上就是关于在VB:如何使用文件对话框加载文本文件全部的内容，包括:在VB:如何使用文件对话框加载文本文件、excel怎么读取文本格式数据、易语言如何取网站d出信息框的内容文本等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！