| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2935 人关注过本帖, 1 人收藏
标题:VB中怎样将外部数据(如:*.txt,excel)导入控件text1中做查询条件!
取消只看楼主 加入收藏
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
收藏
得分:0 
Dim Str() As String '声明一个字符型数组
    Dim I As Long '声明一个长整型变量,下面读文件用到
   
    Open Text1.Text For Input As #1 '打开文件
   
    Do While Not EOF(1) '判断是否到了文件结尾
        ReDim Preserve Str(I) '给数组分配空间,
        
        Line Input #1, Str(I) '读取一行放入数组变量中
        
        I = I + 1 '判断读了多少行,再给数组分配空间
  MsgBox Str(I) 
  Loop '循环
   
    Close #1 '关闭文件

------------------
红色行下标越界! 求老师回答下吧 不知道哪里错了。

[ 本帖最后由 豆豆17373 于 2012-11-3 15:09 编辑 ]
2012-11-03 15:06
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
收藏
得分:0 
VB中读取文本内容用MsgBox显示 
2012-11-03 15:32
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
收藏
得分:0 
dim strLine as string
open Text1.text for input as #1

while not eof(1)

line input #1,strLine

msgbox strLine '显示每行

wend

close #1
2012-11-03 21:05
豆豆17373
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2012-11-2
收藏
得分:0 
以下是引用Artless在2012-11-4 13:59:40的发言:


   MsgBox Str(I) 
   I = I + 1 '判断读了多少行,再给数组分配空间

方二:
Open Text1.Text For Input As #1

While Not EOF(1)

   Line Input #1, strLine

  MsgBox  strLine  
Wend

Close #1
2012-11-04 14:40
快速回复:VB中怎样将外部数据(如:*.txt,excel)导入控件text1中做查询条件!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017255 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved