我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vbnet逐行读文件 vbnet读取文件内容

VB6.0中如何实现逐行读入文本文件?

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

vb.net怎么从文本文档中读取一行数据,将文本输出到控制台?

以下示例一次从文件中读取一行,然后将每行文本打印到控制台。

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

vb.net问题 如何读取一个txt文件的内容并判断

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

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

'对应的处理

Wend '未结束继续

Close #1 '关闭


文章标题:vbnet逐行读文件 vbnet读取文件内容
网页网址:http://mswzjz.cn/article/ddohjhh.html

其他资讯