如何用VB读取TXT文件中的数据,TXT文件的每个数据用逗号分开,但字符长度不同.
如何用VB读取TXT文件中的数据,TXT文件的每个数据用逗号分开,但字符长度不同.
不区分大小写匿名
Dim s As StringDim sp() As StringOpen "c:\1.txt" For Input As #1&&& '比如打开"c:\1.txt"，内容是：5,56,&&& While Not EOF(1)&&&&&&& Line Input #1, s&&& WendClose #1sp = Split(s, ",")'执行后sp的元素内容就分别是5、56、
可能没有说清楚,TXT文件里有很多行,每一行有很多数据
例如5,55,666(第一行)
&&&&&& 666,5,666(第二行)
&&&&& 555,555,55(第三行)
我要读取每一行第二个数据
不过谢谢你的回复.
稍加修改一下就行了，sp里存放着每一行的第二个数据
Dim sp() As StringDim s As StringDim i As IntegerDim it As IntegerOpen "c:\1.txt" For Input As #1&&&&
&&& While Not EOF(1)&&&&&&& Line Input #1, s&&&&&&& ReDim Preserve sp(i)&&&&&&& it = InStr(s, ",")&&&&&&& sp(i) = Left(Right(s, Len(s) - it), InStr(it + 1, s, ",") - it - 1)&&&&&&& i = i + 1&&& WendClose #1
但是如果不是取每一行的第二个数据,是取第五个或第N个,好像不行.
Private Sub Command1_Click()&&& Dim a As String&&& Open "c:\2.txt" For Input As #1&&& Do Until EOF(1)&&&&&&& Line Input #1, a&&&&&&& a = Right(a, Len(a) - InStr(a, ","))&&&&&&& a = Left(a, InStr(a, ",") - 1)&&&&&&& Text2.Text = Text2.Text & a & vbCrLf&&& Loop&&& Close #1End Sub
但是如果不是取每一行的第二个数据,是取第N个,好像不行.
搞那么复杂干啥？把它转化成数组
我也不想这么复杂,那个TXT文件有97000KB有一年的数据,一个小时一条数据
如果我想知道TXT文件里,第N个逗号的位置(在第几字符),你知道怎样做?谢谢
相关知识等待您来回答
编程领域专家您还未登陆，请登录后操作！
上运行，怎么打包
首先说明一点,VB编写的原代码只能在安装有VB编程环境的WIN9X以及WIN2000和WINXP的一些版本下能运行,在其他非WINDOWS操作系统无法运行.第二WINDOWS系统中未安装VB编程环境则需通过VB的PACKAGE & DEPLOYMENT 向导生成安装包(安装程序)来进行安装注册,方能运行,特别要注意,所开发的VB的EXE文件最好再无VB编程环境的WINDOWS系统安装来发现问题,你的VB生成的EXE文件能否运行.操作数据库的VB的EXE文件还需正确连接数据库,其它需要读写磁盘的VB的EXE文件所涉及的文件或文件夹的位置是在VB的EXE文件所认的位置.
自带的Package & Deployment 向导,做个安装包在别的电脑安装.
在那里找这个工具VisualBase ？
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注程序中如何完成以下数据拆分(用VB编程解决)-中国学网-中国IT综合门户网站
> 程序中如何完成以下数据拆分(用VB编程解决)
程序中如何完成以下数据拆分(用VB编程解决)
转载 编辑：李强
为了帮助网友解决“程序中如何完成以下数据拆分(用VB编程解”相关的问题，中国学网通过互联网对“程序中如何完成以下数据拆分(用VB编程解”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:程序中如何完成以下数据拆分(用VB编程解决)，具体解决方案如下：解决方案1：0)=78198数量6880 单价2,0） &#39、数量保留到10位2，已经用自定义函数代替4。举个2组的例，只要这几组数量合计为被拆分前的原数：数量 41790 金额93816拆分数量34910 单价2，因为round函数只奇数0.27 金额15618 &#39，符合以下要求的数据1.5才进位，都可以;round(34910*2、单价保留到小数点后2位3.24 金额 78198 &#39、保留后的 数量*单价=四舍五入（金额设数量为　437330金额为 1167671要求把数量和金额随机拆分为 3-10组.24，金额合计也是、拆几组是不限定的;这里用四舍五入表示round函数解决方案2：单价有范围，拆分出来的“最大单价-最小单价差为0，先谢过各位高手了.3内”】 如果高效的代码另加　100财富 作答谢另外 【是我没写清解决方案3：<解决方案4：我实际用的单价一般在2.1-2.33间，您的样例程序中这个范围可以大一些最大最小差控制在0.3以内最好通过对数据库的索引,我们还为您准备了：VB内置的常用函数里就有这个功能 mid函数:比如你在text1中输入的三位数是123 a=text1.text text2.text=mid(a,1,2) 这时输出的字符是1和2,含义是从第一个字符开始的前两个字...===========================================VB编程优化可从以下几点着手 1.优化大小 过去,在设计应用程序时,经常得受到可用内... 减少控件数目。 用标签代替文本框。 保持数据在磁盘文件或资源中,并且只在需要...===========================================用个记数器. 随机显示1-52就该这样写 Int((1 - 52 + 1) * Rnd + 1) 随机显示53-120就该这样写 Int((1 - 52 + 1) * Rnd + 1) 随机函数的用法是 int((上限值-下限值+1)*rnd+1) 在就没什么...=========================================== Dim fbn(19) As Integer &#39;定义斐波那契数列变量数组,共20个 fbn(0) = 1 &#39;给出前两个值 fbn(1) = 1 For i = 2 To 19 fbn(i) = fbn(i - 2) + fbn(i - 1) Next i Print fbn(19) ...===========================================用一生来编程是一件既容易又困难的事。如果碌碌无为,为交差写点程序,这样写两辈子... 在IT的发展中有相当重要的地位,从底层硬件通讯协议的建立, 到数据传输层的处理,到操...=========================================== Private Sub Form_Load() '创建一个数组 Dim a(9) As Integer '初始化数组 Dim i As Integer For i = 0 To UBound(a) a(i) = i + 1 Next '插入操作 Dim temp1 As Integer, temp...=========================================== Option Base 1 Private Sub Command1_Click() Dim s(10) As Integer For i = 1 To 10 s(i) = Rnd() * 100 Print s(i) Next i Print "以上是初始的10个随机整数" For a = 10 To 1 ...=========================================== Private Sub Command1_Click() Text2.Text = 0 Text3.Text = 0 Text4.Text = 0 For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) Like "[A-Z]" Or Mid(Text1.Text, ...=========================================== Private Sub Command1_Click() Dim n%, i%, j%, a() As Integer n = InputBox("多项式系数:", "输入框") ReDim a(0 To n, 0 To n) Cls For i = 0 To n a...===========================================不复制了,参考以下回答:===========================================
本文欢迎转载，转载请注明：转载自中国学网： []
用户还关注
可能有帮助VB操作SQL Server（一）――如何连接数据库
在我们的初期学习中，VB与SQL Server都是不可缺少的，那么，如何用VB来连接？今天，我们就来解决这个不是问题的问题：
1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server
1）使用ADO控件连接
使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语句的字符串，用于指定建立与数据源连接的信息，语法如下：
&span style=&font-size:18&&Provider=DPassword=UserPPersistSecurity Info=FUser ID=UserNInitial Catalog=Data NDataSource=ServerName&/span&&
例：使用ADO控件连接名为student的数据库
&span style=&font-size:18&&PrivateSub Form_Load()&
Adodc1.connectionstring=&Provider=SQLOLEDB.1;Password=;PersistSecurity Info=FUser ID=Initial Catalog=Data Source=.&&
End Sub&/span&&
2）使用ADO对象连接
ADO的数据库访问技术，不仅可以通过VB提供的控件实现，还可以通过ADO相关的对象实现。ADO对象包括了command对象、connection对象、recordset对象、Error对象、field对象、parameter对象、property对象，其中，connection对象是用来管理与数据库的连接的
例：使用connection对象的Open方法连接名为student的数据库
&span style=&font-size:18&&Dim cnn as ADODB.Connection&
Privatesub Form_Load()&
set cnn=New ADODB.Connection&
Cnn.open=&provider=SQLOLEDB;password=;PersistSecurity Info=User ID=Initial Catalog=Data Source=.&&
End Sub&/span&&
2.使用DAO（Data Access Object，数据访问对象)连接SQL Server
使用DAO连接SQL Server可以使用VB提供的Data控件实现，使用其访问SQL Server时需要掌握connect属性用于定义所要连接数据库的类型，由于Data控件采用的是Access/Jet为数据引擎，所以访问SQL Server时需要用ODBC间接访问
connect属性访问ODBC时的字符串格式设置：
ODBC；DataBase=DataName；UID=UserName；PWD-UserPassword；DSN=DataSourceName&
例：用Data控件通过ODBC中的studentinfo数据源连接名为student的数据库
&span style=&font-size:18&&PrivateSub Form_Load()&
Data1.connect=&ODBC;DataBase=UID=PWD=123;DSN=studentinfo&&
End Sub&/span&&
上面的方法都适用于与VB操作SQL Server，这些可能相较于Deplin或者ASP与数据库的连接较为简单，但是在初期学习中，只要掌握好这些连接方法，便游刃有余
作者：linlin
您对本文章有什么意见或着疑问吗？请到您的关注和建议是我们前行的参考和动力&&
您的浏览器不支持嵌入式框架，或者当前配置为不显示嵌入式框架。