我有一个csv文件032214.cvs
文件中的数据等于12345678,1.1234,G00 L
信息框:
Dim FileReader As String
FileReader = My.Computer.FileSystem.ReadAllText("C:AppsCSVDATA 32214.csv")
MessageBox.Show((FileReader),"Verify Information",
MessageBoxButtons.Ok,MessageBoxIcon.Question)
它显示所有的12345678,1.1234,G00 L
,但我只想显示12345678
试试这个;
Dim FileReader As String
FileReader = My.Computer.FileSystem.ReadAllText("C:AppsCSVDATA 32214.csv")
StrToDisplay = Split(FileReader,",")(0)
MessageBox.Show((StrToDisplay),"Verify Information",
MessageBoxButtons.Ok,MessageBoxIcon.Question)
如果有效,请告诉我。
在我看来,该语法是VB.Net
而不是VBScript
,无论如何,使用带有可选count
参数的Split
。
'Split(expression[, delimiter[, count[, compare]]])
StrToDisplay = Join(Split(FileReader, ",", 2), ",")