查找chr(13)& chr(10)呗 找到了 前面放到text2 后面放到text3中下列代码经测试通过Option ExplicitPrivate C13 As StringPrivate Sub Command1_Click()C13 = Chr(13) & Chr(10)Dim C13pos As IntegerC13pos = InStr(1, Text1, C13)Text2 = Mid(Text1, 1, C13pos - 1)Text3 = Mid(Text1, C13pos + 1, Len(Text1) - C13pos)End Sub...
|