- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]多个时间split 的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139930)
-- 发布时间：2019/8/26 0:34:00
-- [求助]多个时间split 的问题
像这样带有回车和空格的时间如何split呢
此主题相关图片如下：2019-08-26-03119.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
Dim values() As String = CurrentTable.Current("第一列").SPLIT(" ")
For i As Integer = 0 To values.count -1
If values(i)<>"" Then
If values(I)>="09:10" AndAlso values(I)<"10:10" Then \'条件1
MSGBOX(values(I))
Else If values(I).Replace(vbcrlf,"") >= "20:00" Then \'条件2
MSGBOX(2 & values(I))
End If
output.Show(values(I).Replace(vbcrlf,"").trim(" "))
End If
Next
\'--------------目前条件2有问题.
-- 发布时间：2019/8/26 9:26:00
--
老大帮忙看看
-- 发布时间：2019/8/26 9:57:00
--
Dim values() As String = CurrentTable.Current("第一列").Replace(vbcr,"").SPLIT(vbcr)
For i As Integer = 0 To values.count -1
If values(i)<>"" Then
If values(I)>="09:10" AndAlso values(I)<"10:10" Then \'条件1
MSGBOX(values(I))
Else If values(I)>= "20:00" Then \'条件2
MSGBOX(2 & values(I))
End If
output.Show(values(I).Replace(vbcrlf,"").trim(" "))
End If
Next
-- 发布时间：2019/8/26 13:05:00
--
这样条件2没有弹窗呀。。好像是没有分离成功
[此贴子已经被作者于2019/8/26 13:06:16编辑过]
-- 发布时间：2019/8/26 13:46:00
--
Dim values() As String = CurrentTable.Current("第一列").Replace(vbcr,"").SPLIT(vblf)