作者albb0920 (albb)
看板Visual_Basic
标题Re: [VB6 ] 字串包含换行判断
时间Fri Sep 28 07:22:16 2007
我是这样写的啦 XD
n = "甲乙丙丁" & vbNewLine & "戊己庚辛" 'vbnewline就是 Chr(10) & Chr(13)
n = Replace(n, Chr(10), "") '事实上，Chr(10) 可有可无
Dim data As Variant
data = Split(n, Chr(13))
For i = 0 To UBound(data)
Print data(i)
NextD
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.64.26.55
1F：推 fumizuki:vbCrLf = vbNewLine 09/28 22:45
2F：推 fumizuki:Split(n, vbCrLf) 比较标准 09/28 22:45
3F：推 albb0920:有些状况下，会只有Chr(13)，所以我才这样用 XD 09/28 23:26
4F：推 fumizuki:可以先检查有没有 CrLf，没有 CrLf 才用 Cr 分隔XD 09/29 06:18