mdsk.net
当前位置:首页 >> vB 怎样逐行读取文本.. >>

vB 怎样逐行读取文本..

用Open打开文件,然后用Line行读取即可。 代码如下: Dim tempStr as String '定义变量tempStr为字符串Open "C:\Test.txt" For Input As #1 '打开文件While Not EOF(1) '读取到结束 Line Input #1, tempStr '读取一行到变量tempStr'对应的处理We...

VB6.0可以用一次读取文本文件全部文本内容,然后使用Split函数来实现一行一行提取文本框行内容。 Split函数,返回一个下标从零开始的一维数组,它包含指定数目的子字符串。 以下代码是可以提取文本文件任何一行内容的: Private Sub Command1_Cl...

试试这个吧 Private Sub Command1_Click() Open "c:\123.txt" For Output As #1 Print #1, Text1 Print #1, Text2 Print #1, Text3 Close End Sub Private Sub Form_Load() Open "c:\123.txt" For Input As #1 Input #1, a Input #1, b Input #1...

窗体上添加2个文本框,Text1和Text2,设置它们的MultiLine 属性为True,这样可以显示多行文本。 添加1个按钮Command1。 使用菜单:[工程] -- [引用] -- ,勾选:Microsoft Excel 11.0 Object Library '其中11.0是不一定的,要看你计算机安装的OFFI...

Private Sub Command2_Click() Dim str() As String str = Split(Text1.Text, vbCrLf) For i = 0 To UBound(str) Text3.Text = Text3.Text & str(i) & Text2.Text & vbCrLf Next End Sub

VB可通过循环来获取ListBox控件的List属性。 List属性,返回或设置控件的列表部分的项目。列表是一个字符串数组,数组的每一项都是一列表项目。 下列代码读取ListBox控件的List属性。 Option Explicit Dim I As LongPrivate Sub Form_Click() Fo...

定义动态数组,重新定义动态数组str()的下界的时候,括号里的参数必须是一个明确的数值或者是已经赋值过的参数。

先在VB里面建立一个Excel Object用以访问Excel文件,如果你的Excel是CSV的则不需要,直接按照Txt文本方式打开读取即可. 建立Button事件,将获取的数据传入到TextBox里面即可. 参考如下代码: 条件:我有一个Excel文件D:\A.xls里面的Sheet1中A1开始有1...

用 for i=1 to ActiveSheet.UsedRange. Item(ActiveSheet.UsedRange.Count).row …… next 来循环

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com