7,763
社区成员
发帖
与我相关
我的任务
分享当text.multline=true时？？？?gg
当text.multline=true时，可以通过回车输入多行文字。
现text中有文字
aaa
bbb
ccc
如何将每一行分别副给字符串。
dim a,b,c as string
a="aaa"
b="bbb"
c="ccc"
现text中有文字
aaa
bbb
ccc
如何将每一行分别副给字符串。
dim a,b,c as string
a="aaa"
b="bbb"
c="ccc"
...全文
请发表友善的回复…
发表回复
zytang 2001-12-18
- 打赏
- 举报
谢谢
yangzhaoyu 2001-12-18
- 打赏
- 举报
Private Sub Command1_Click()
Dim allText As String, a(2) As String
Dim b As Long
allText = Text1.Text
For i = 0 To 2
b = InStr(1, allText, Chr(10) + Chr(13), vbTextCompare)
If b > 0 Then
a(i) = Left(allText, b - 1)
Debug.Print a(i)
Else
a(i) = allText
Debug.Print a(i)
Exit For
End If
allText = Mid(allText, b + 2)
Next
End Sub
Dim allText As String, a(2) As String
Dim b As Long
allText = Text1.Text
For i = 0 To 2
b = InStr(1, allText, Chr(10) + Chr(13), vbTextCompare)
If b > 0 Then
a(i) = Left(allText, b - 1)
Debug.Print a(i)
Else
a(i) = allText
Debug.Print a(i)
Exit For
End If
allText = Mid(allText, b + 2)
Next
End Sub
rabbitwy 2001-12-18
- 打赏
- 举报
啊，来晚了，
xuxia 2001-12-18
- 打赏
- 举报
查询得到换行符，在分别取出付值。
along_2000 2001-12-18
- 打赏
- 举报
tmpstr=split(text1.text1,vbcrlf)
for i=0 to ubound(tmpstr)
debug.print tmpstr(i)
next i
for i=0 to ubound(tmpstr)
debug.print tmpstr(i)
next i
sbnth 2001-12-18
- 打赏
- 举报
用split函数吧。将vbCrLf作为分割符号。
zytang 2001-12-18
- 打赏
- 举报
?
