vb點虐 逗號分割 vb語句分隔符

VB點虐 中任何提取文本文件中的逗號分格數(shù)據(jù)?

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

創(chuàng)新互聯(lián)專注于旌陽企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,成都商城網(wǎng)站開發(fā)。旌陽網(wǎng)站建設(shè)公司,為旌陽等地區(qū)提供建站服務(wù)。全流程按需制作網(wǎng)站，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

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

'搜索函數(shù)，用法Search(標(biāo)頭，序號)，返回數(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) '因為從0開始所以-1

Exit Function

End If

Next

End If

End Function

比如你要“gc“開頭的第5個數(shù)據(jù)，就用Search("gc",5)即可返回45。

vb語句間分隔符什么情況下用冒號，分號，逗號？

逗號：用在print語句中，以標(biāo)準(zhǔn)格式用來分隔各輸出項，即每個輸出項的寬度占18個字符位置，這樣每行分成四個區(qū)。

分號：也用在print語句中，以緊湊格式用來分隔各輸出項，輸出的字符之間留一個空格位，輸出的數(shù)值之間除留一個空格位外還留一個符號位。

冒號：用在語句之間，將一個物理行分成多個邏輯行（即多個語句占一行，其間用冒號分隔）。

擴(kuò)展資料：

VB中的冒號有兩處應(yīng)用：

1、行標(biāo)識：就是在使用GOTO語句時指明轉(zhuǎn)向的行。例如：

Private Sub Command1_Click()For I = 1 To 10。

HL:T(I) = Int(Rnd * 10) + 1、For J = 1 To I - 1、If T(I) = T(J) Then GoTo HL。

2、將多行語句寫到同一行。例如：

A＝5：b＝3：c＝a+b：Print c

分號用于打印語句中，表示連續(xù)打印，不換行，也不空格。例如：

Print “我”；Print “就是我”。

執(zhí)行完后打印結(jié)果為：我就是我。

逗號也用于打印語句中，不過中間會有空格。

另外，逗號還用于定義變量的語句中。例如：Dim FileName As String, IntJs As Long。

vb點虐 用文本框輸入數(shù)組的所有元素，數(shù)值之間用逗號分隔，統(tǒng)計數(shù)組中正數(shù)的個數(shù)，并顯示最大值的元素下標(biāo)

Dim?str?As?String?=?"",?temp,?n?As?Integer

Dim?str1?As?String?=?"12,45,2,9,41,31,66,83,2,1,-9,-91,-21"

Dim?a()?As?String?=?Split(str1,?",")

For?i?=?1?To?UBound(a)?Step?1

a(i)?=?Val(a(i))

Next

temp?=?0

n?=?0

For?i?=?1?To?UBound(a)

If?a(i)??temp?Then

temp?=?a(i)

End?If

If?a(i)??0?Then

n?=?n?+?1

End?If

Next

str?=?str??"正數(shù)的個數(shù)為?"??n

str?=?str??"最大元素的下標(biāo)為?"

For?i?=?1?To?UBound(a)

If?a(i)?=?temp?Then

str?=?str??i??"?"

End?If

Next

TextBox6.Text?=?str

vb文本處理:按逗號分割改成按行排列

把TExt2的MultiLine 設(shè)置為 True

Private Sub Command1_Click()

Dim s() As String

s = Split(Text1.Text, ",")

For Each x In s

Text2.Text = Text2.Text x vbCrLf

Next

End Sub

文章名稱：vb點虐 逗號分割 vb語句分隔符
新聞來源：http://muchs.cn/article40/ddieieo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、虛擬主機(jī)、網(wǎng)站策劃、云服務(wù)器、定制網(wǎng)站、網(wǎng)站導(dǎo)航

廣告

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