16,555
社区成员
发帖
与我相关
我的任务
分享
Dim str As String = "#001#230#3#" ' 或 "#1#2#3#" 或 "#10#2#3#"
Dim arr() As String = Split(str, "#")
msgbox(arr(1))
Private Function ReadFile(ByVal fileFullPath As String) As String()
Dim result As List(Of String)
Dim lines() As String
lines = System.IO.File.ReadAllLines(fileFullPath)
result = New List(Of String)
For Each line As String In lines
result.Add(Mid(line, 2, 1))
Next line
Return result.ToArray()
End Function
Dim str As String = "#001#230#3#" 或 "#1#2#3#" 或 "#10#2#3#"
Dim arr() As String = Split(str, "#")
Console.WriteLine(arr(1))