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

Private a() As String Private idx As Integer Private Sub Command1_Click() Dim i As Integer ReDim Preserve a(0 To 0) As String Open "c:\1.txt" For Input As #1 While Not EOF(1) Line Input #1, a(i) i = i + 1 ReDim Preserve a(0 To ...

------------------------------------------------------ 经典TXT小说阅读器---TXTView 版本v1.0.2 版权所有:洛克工作室 联系方式:lokapp@163.com ------------------------------------------------------ 功能: 1.快速打开TXT大文件; 2.自...

窗体上添加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...

Dim MyStr() As String Private Sub Command1_Click() Dim t1 As Long, t2 As Long, t3 As Long Randomize t1 = Int(UBound(MyStr) * Rnd + 1) Text1.Text = MyStr(t1) If UBound(MyStr) < 2 Then Exit Sub Do t2 = Int(UBound(MyStr) * Rnd + 1...

Private Sub Form_Load() For i = 0 To 4 List1.AddItem i Next i End Sub Private Sub List1_Click() Select Case List1.ListIndex Case List1.ListIndex Text1(List1.ListIndex).Text = List1.List(List1.ListIndex) End Select End Sub

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