VB.NET修改txt文件指定行？

For Example:

创新互联公司长期为1000多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为东源企业提供专业的成都网站设计、网站建设，东源网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。

1.txt文件内容如下:

The 1st line.

#The 2nd line.

The 3rd line.

The 4th line.

.

修改第二行内容,将#除去.修改后的文本如下:

The 1st line.

The 2nd line.

The 3rd line.

The 4th line.

1 输入方式打开原文件 1.txt；

2 输出方式打开新文件 2.txt；

3 逐行 Line Input 从 1.txt 中读数据，Print 写入 2.txt，直至要修改的行；

4 丢弃从 1.txt中读出的要修改的行，将新内容行写入 2.txt；

5 仿照第 3 步，将其余的行从 1.txt 复制到 2.txt。

6 关闭两个文件

7 删除1.txt，将 2.txt 的文件名改为原来 1.txt 的。

记得VB.NET里有个将字符串数组分解成一个个CHAR的函数,请哪位高手指点一下,谢谢1

是字符串转成Char数组吧。

Dim s As String = "abc"

Dim c As Char() = s.ToCharArray

VB.NET 字串用换行分割

假设你要分割的字符串是string1的话

分割代码就是：

dim s as string=strings.split(string1,vbcrlf)

这样s就是一个阵列了。s(0)是第一段内容，s(1)是第二段内容，以此类推。~~

googles8 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。

VB.net中任何提取文本文件中的逗号分格数据?

用数组呗。我是用VB6的，不过你会.NET也肯定能看懂。

不是文本文件么？先用Line Input读每行存入数组。再把每行数据用你的"，"分割，就可以查询了。我写个简单的例子：

'搜索函数，用法Search(标头，序号)，返回数据.

Private Function Search(ByVal Section As String, ByVal Index As Integer) As String

Dim fNum%, Lines%, temp%, Str As String

ReDim Data(0)

fNum = FreeFile()

If Dir("C:\\1.txt") = "" Then Exit Function

'文件路径和文件名你自己改

Open "C:\\1.txt" For Input As #fNum

Do While Not EOF(fNum)

Lines = Lines + 1

'行数

Line Input #fNum, Str

ReDim Preserve Data(Lines)

Data(Lines) = Str

Loop

Close #fNum

If Lines 0 Then

Dim tmp() As String

For temp = 1 To UBound(Data)

tmp = Split(Data(temp), "，")

'分割

If tmp(0) = Section Then

Search = tmp(Index - 1)

'因为从0开始所以-1

Exit Function

End If

Next

End If

End Function

比如你要“gc“开头的第5个数据，就用Search("gc",5)即可返回45。

VB.NET分别提取文本框里的每一行

Public Class Form1

Dim i As Long = -1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

On Error Resume Next

Dim a() As String

i = i + 1

If i TextBox1.Lines.GetUpperBound(0) Then i = 0

a = TextBox1.Lines(i).ToString.Split(";")

TextBox2.Text = a(0)

TextBox3.Text = a(1)

End Sub

望采纳~

vb.net怎么按行读取数据到二维数组中，以空格分隔数据格式 -48.437500 0.000000 -0.000011 0.000011

用split函数

dim a()

a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a

得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定

大概就这样，你自己试试吧

网站栏目：包含vb.net行内容分解的词条
本文路径：http://chengdu.cdxwcx.cn/article/hesgdo.html