0

ファイル内の csv ファイル032214.cvsデータが 12345678,1.1234,G00 L に等しい

メッセージボックス:

Dim FileReader As String
FileReader = My.Computer.FileSystem.ReadAllText("C:\Apps\CSVDATA\032214.csv")
MessageBox.Show((FileReader),"Verify Information",
MessageBoxButtons.Ok,MessageBoxIcon.Question)

それはすべてを表示します 12345678,1.1234,G00 L しかし、私は表示したいだけです12345678

4

2 に答える 2

0

これを試して;

Dim FileReader As String
FileReader = My.Computer.FileSystem.ReadAllText("C:\Apps\CSVDATA\032214.csv")
StrToDisplay = Split(FileReader,",")(0)
MessageBox.Show((StrToDisplay),"Verify Information",
MessageBoxButtons.Ok,MessageBoxIcon.Question)

それが機能するかどうか教えてください。

于 2013-06-27T13:29:04.830 に答える
0

とにかく、その構文はオプションの引数と一緒に使用しVB.Netないように見えます。VBScriptSplitcount

'Split(expression[, delimiter[, count[, compare]]])
StrToDisplay = Join(Split(FileReader, ",", 2), ",")
于 2013-06-27T15:06:45.390 に答える