SQLSERVER有一文本字段内容如下:
科室1:
  有一个问题
科室2:
  有二个问题,
  分别是:
科室3:
  有五个问题
  1\2\3\4\5
我现在要取出并分割成:
A1="科室1:"
B1="  有一个问题"
A2="科室2:"
B2="  有二个问题,
  分别是:"
A3="科室3:"
B3="  有五个问题
   1\2\3\4\5"

解决方案 »

  1.   

    '涉及到很多字符串的操作
    '给一个取"科室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