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

For Example:

創(chuàng)新互聯(lián)公司長(zhǎng)期為1000多家客戶(hù)提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開(kāi)放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為東源企業(yè)提供專(zhuān)業(yè)的成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)，東源網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。

1.txt文件內(nèi)容如下:

The 1st line.

#The 2nd line.

The 3rd line.

The 4th line.

.

修改第二行內(nèi)容,將#除去.修改后的文本如下:

The 1st line.

The 2nd line.

The 3rd line.

The 4th line.

1 輸入方式打開(kāi)原文件 1.txt；

2 輸出方式打開(kāi)新文件 2.txt；

3 逐行 Line Input 從 1.txt 中讀數(shù)據(jù)，Print 寫(xiě)入 2.txt，直至要修改的行；

4 丟棄從 1.txt中讀出的要修改的行，將新內(nèi)容行寫(xiě)入 2.txt；

5 仿照第 3 步，將其余的行從 1.txt 復(fù)制到 2.txt。

6 關(guān)閉兩個(gè)文件

7 刪除1.txt，將 2.txt 的文件名改為原來(lái) 1.txt 的。

記得VB.NET里有個(gè)將字符串?dāng)?shù)組分解成一個(gè)個(gè)CHAR的函數(shù),請(qǐng)哪位高手指點(diǎn)一下,謝謝1

是字符串轉(zhuǎn)成Char數(shù)組吧。

Dim s As String = "abc"

Dim c As Char() = s.ToCharArray

VB.NET 字串用換行分割

假設(shè)你要分割的字符串是string1的話(huà)

分割代碼就是：

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

這樣s就是一個(gè)陣列了。s(0)是第一段內(nèi)容，s(1)是第二段內(nèi)容，以此類(lèi)推。~~

googles8 的寫(xiě)法也對(duì)的。不過(guò)我的代碼省去了聲明的一行。只用一行就好了。

VB.net中任何提取文本文件中的逗號(hào)分格數(shù)據(jù)?

用數(shù)組唄。我是用VB6的，不過(guò)你會(huì).NET也肯定能看懂。

不是文本文件么？先用Line Input讀每行存入數(shù)組。再把每行數(shù)據(jù)用你的"，"分割，就可以查詢(xún)了。我寫(xiě)個(gè)簡(jiǎn)單的例子：

'搜索函數(shù)，用法Search(標(biāo)頭，序號(hào))，返回?cái)?shù)據(jù).

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

'行數(shù)

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)

'因?yàn)閺?開(kāi)始所以-1

Exit Function

End If

Next

End If

End Function

比如你要“gc“開(kāi)頭的第5個(gè)數(shù)據(jù)，就用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怎么按行讀取數(shù)據(jù)到二維數(shù)組中，以空格分隔數(shù)據(jù)格式 -48.437500 0.000000 -0.000011 0.000011

用split函數(shù)

dim a()

a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格將文本拆分成數(shù)組賦值給a

得到的是文本，如果想得到數(shù)字就a(1) = val(a(1))‘把a(bǔ)(1)的值強(qiáng)制轉(zhuǎn)化成數(shù)字賦值給a(1)，全部轉(zhuǎn)換自己弄個(gè)循環(huán)搞定

大概就這樣，你自己試試吧

當(dāng)前標(biāo)題：包含vb.net行內(nèi)容分解的詞條
URL標(biāo)題：http://chinadenli.net/article10/hesgdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、云服務(wù)器、服務(wù)器托管、微信小程序、App設(shè)計(jì)、網(wǎng)站策劃

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)