我的csv檔案內容是：
Date,$Time,PV1,PV2,PV3
03/23/12,17:40:26,102,102,102
03/23/12,17:45:26,110,110,110
03/23/12,17:50:26,118,118,118
03/23/12,17:55:26,125,126,126
03/23/12,18:00:26,133,133,133
我想在vb文本框中按要求顯示其中某一列或幾列：例如四列
Date $Time PV2 PV3
03/23/12 17:40:26 102 102
03/23/12 17:45:26 110 110
03/23/12 17:50:26 118 118
03/23/12 17:55:26 126 126
03/23/12 18:00:26 133 133
應該怎么編呢
uj5u.com熱心網友回復：
dim i as long
dim str as string
dim data() as string, lines() as string
open "xxx.csv" for input as #1
str = input(lof(1), 1)
close #1
lines = split(str, vbcrlf)
for i = lbound(lines) to ubound(lines)
data = split(lines(i), ",")
if i = lbound(lines) then
text1.text = data(0) & " " & data(1) & " " & data(3) & " " & data(4)
else
text1.text = text1.text & vbcrlf & data(0) & " " & data(1) & " " & data(3) & " " & data(4)
end if
next
uj5u.com熱心網友回復：
dim i as long
dim str as string, r as string
dim data() as string, lines() as string
open "xxx.csv" for input as #1
str = input(lof(1), 1)
close #1
lines = split(str, vbcrlf)
for i = lbound(lines) to ubound(lines)
data = split(lines(i), ",")
if i = lbound(lines) then
r = data(0) & " " & data(1) & " " & data(3) & " " & data(4)
else
r = r & vbcrlf & data(0) & " " & data(1) & " " & data(3) & " " & data(4)
end if
next
text1.text = r
這樣可以快一點。
uj5u.com熱心網友回復：
Dim strData As String
Dim reg As Object,match As Object
Open "xxx.csv" For Input As #1
strData = Input(LOF(1), 1)
Close #1
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.Pattern = "(.*?),(.*?),(.*?),(.*?),([^\r\n]*)"
Set matchs = reg.Execute(strData)
For Each match In matchs
Debug.Print match.SubMatches(0) & "," & match.SubMatches(1) & "," & match.SubMatches(3) & "," & match.SubMatches(4)
Next
uj5u.com熱心網友回復：
可以將其當作外部資料庫來查詢。uj5u.com熱心網友回復：
Dim a() As String, strLine As String
Open "xxx.csv" For Input As #1
Text1 = ""
Do Until EOF(1)
Line Input #1, strLine
a = Split(strLine, ",")
If Ubound(a) = 4 Then
a(3) = "" 'Remove PV2
strLine = Replace(Join(a, Space(1)), Space(2), Space(1))
Text1 = Text1 & strLine & vbcrLf
End If
Loop
Close #1
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/133255.html
標籤：資源
上一篇：VB6.0 DataTable用戶定義型別未定義錯誤
下一篇：VBA讀取檔案