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...

既然同胞都出声了,我还不帮忙吗,兄弟,我刚写了一段代码,你看看能用不 Private Sub Form_Load() Open "C:\123.txt" For Input As #1 End Sub Private Sub Command1_Click() On Error Resume Next Dim str As String Line Input #1, str Text1.Tex...

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

dim data as string dim buffer as string open "c:\a.txt" for input as #1 while not eof(1) line input #1,buffer data=data+buffer loop close #1 data里是逐行读入的所有文本

试试这个吧 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...

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...

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

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

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