SQLSERVER有一文本字段内容如下:
科室1:
有一个问题
科室2:
有二个问题,
分别是:
科室3:
有五个问题
1\2\3\4\5
我现在要取出并分割成:
A1="科室1:"
B1=" 有一个问题"
A2="科室2:"
B2=" 有二个问题,
分别是:"
A3="科室3:"
B3=" 有五个问题
1\2\3\4\5"
科室1:
有一个问题
科室2:
有二个问题,
分别是:
科室3:
有五个问题
1\2\3\4\5
我现在要取出并分割成:
A1="科室1:"
B1=" 有一个问题"
A2="科室2:"
B2=" 有二个问题,
分别是:"
A3="科室3:"
B3=" 有五个问题
1\2\3\4\5"
'给一个取"科室XX1:"中的数字Private Sub cmdRead_Click() Dim strTmp As String
Dim arrayStr() As String
Dim strFileName As String
Dim FNum As Integer
Dim strLine As String
Dim Str_Pos As Integer
Dim strLen As Integer
FNum = FreeFile
strFileName = "d:\temp.txt"
Open strFileName For Input As #FNum
Line Input #FNum, strLine
' arrayStr = Split(strLine, ":") strLen = Len(strLine)
For Str_Pos = 1 To Len(strLine)
If IsNumeric(Mid(strLine, Str_Pos, 1)) = True Then
Exit For
End If
Next Str_Pos
strTmp = Left(Right(strLine, strLen - Str_Pos + 1), strLen - Str_Pos)
MsgBox strTmpEnd Sub