十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
VB6.0可以用一次读取文本文件全部文本内容,然后使用Split函数来实现一行一行提取文本框行内容。
成都网络公司-成都网站建设公司创新互联公司十多年经验成就非凡,专业从事网站制作、成都做网站,成都网页设计,成都网页制作,软文营销,广告投放等。十多年来已成功提供全面的成都网站建设方案,打造行业特色的成都网站建设案例,建站热线:13518219792,我们期待您的来电!
Split函数,返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
以下代码是可以提取文本文件任何一行内容的:
Private Sub Command1_Click()
Dim strWj As String
Dim strj() As String
Dim aryContent() As Byte
Dim i As Long
Dim j As Long
CommonDialog1.CancelError = True ' 设置“CancelError”为 True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置标志
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
CommonDialog1.FilterIndex = 2 ' 指定缺省的过滤器
CommonDialog1.ShowOpen ' 显示“打开”对话框
' 显示选定文件的名字
'MsgBox CommonDialog1.FileName
Open CommonDialog1.FileName For Binary As #1
ReDim aryContent(LOF(1) - 1)
Get #1, , aryContent
Close #1
strWj = StrConv(aryContent, vbUnicode)
RichTextBox1 = strWj
Text1 = strWj
strj = Split(strWj, vbCrLf)
i = UBound(strj)
Text2 = i + 1
j = InputBox("输入需要显第几句", j)
j = j - 1
Label1.Caption = j + 1 ":" strj(j)
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
以下示例一次从文件中读取一行,然后将每行文本打印到控制台。
Sub ReadTextLinesFromFile()
Dim file As New System.IO.StreamReader("c:test.txt")
Dim oneLine As String
oneLine = file.ReadLine()
While (oneLine "")
Console.WriteLine(oneLine)
oneLine = file.ReadLine()
End While
file.Close()
End Sub
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As New StreamReader("C:\jq.TXT") '打开文件
Dim Mytxt As String = ""
Dim s As String
Do While r.Peek -1 '是否到文件尾
s = r.ReadLine '从打开的文件中读取一行内容
Mytxt = Mytxt s vbCrLf '逐行读取文本,并连接到变量Mytxt中
Loop
r.Close() '关闭对象
'判断是否与变量相等etjq,略了吧???
End Sub
End Class
用Open打开文件,然后用Line行读取即可。
代码如下:
Dim tempStr as String '定义变量tempStr为字符串
Open "C:\Test.txt" For Input As #1 '打开文件
While Not EOF(1) '读取到结束
Line Input #1, tempStr '读取一行到变量tempStr
'对应的处理
Wend '未结束继续
Close #1 '关闭