请问如何分割文本?

hpygzhx520 2004-05-05 04:22:01
Private Sub Command1_Click()
Dim a, b, c, d As Integer
a = Format(Date, "mm")
b = Format(Date, "dd")
c = Format(Date - 7, "mm")
d = Format(Date - 7, "dd")
Text1.Text = c & "月" & d & "日至" & a & "月" & b & "日"
End Sub
下一步我要从Text1.Text中提取a, b, c, d,请问怎么办?
...全文
80 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
hpygzhx520 2004-05-06
  • 打赏
  • 举报
回复
多谢大家的帮助!
northwolves 2004-05-05
  • 打赏
  • 举报
回复
Private Sub Command2_Click()
a = Mid(Text1.Text, 1, 2)
b = Mid(Text1.Text, 4, 2)
c = Mid(Text1.Text, 8, 2)
d = Mid(Text1.Text, 11, 2)
Debug.Print a; b; c; d
End Sub
painus 2004-05-05
  • 打赏
  • 举报
回复
a = Split(Split(Text1.Text, "日至")(0), "月")(0)
b = Split(Split(Text1.Text, "日至")(0), "月")(1)
c = Split(Split(Text1.Text, "日至")(1), "月")(0)
d = Left(Split(Split(Text1.Text, "日至")(1), "月")(1), 2)
northwolves 2004-05-05
  • 打赏
  • 举报
回复
a = Split(Split(Text1.Text, "日至")(0), "月")(0)
b = Split(Split(Text1.Text, "日至")(0), "月")(1)
c = Split(Split(Text1.Text, "日至")(1), "月")(0)
d = Left(Split(Split(Text1.Text, "日至")(1), "月")(1), 2)
taosihai1only 2004-05-05
  • 打赏
  • 举报
回复
a=left(text1,instr(text1,"月")-1)
text1=mid(text1,instr(text1,"月"))
b=left(text1,instr(text1,"日至")-1)
text1=mid(text1,instr(text1,"日至"))
c=left(text1,instr(text1,"月")-1)
text1=mid(text1,instr(text1,"月"))
d=left(text1,instr(text1,"日")-1)
hpygzhx520 2004-05-05
  • 打赏
  • 举报
回复
因为Text1.Text 可以手工输入,但格式不变,我要用到那几个变量,所以要提取出来!
希望大家帮忙看看,上面的思路可能是对的,但结果不对,哪个高手指点一下?
hpygzhx520 2004-05-05
  • 打赏
  • 举报
回复
还是楼上的理解我的意思,不过好象不是太对。但是方法一定是对的!
多谢多谢!
BitBlt 2004-05-05
  • 打赏
  • 举报
回复
a=left(text1,instr(text1,"月")-1)
text1=mid(text1,instr(text1,"月"))
b=left(text1,instr(text1,"日至")-1)
text1=mid(text1,instr(text1,"日至"))
c=left(text1,instr(text1,"月")-1)
text1=mid(text1,instr(text1,"月"))
d=left(text1,instr(text1,"日")-1)
Wenking003 2004-05-05
  • 打赏
  • 举报
回复
嘻嘻,你不是已经写出来了吗?
a = Format(Date, "mm")
b = Format(Date, "dd")
c = Format(Date - 7, "mm")
d = Format(Date - 7, "dd")
什么意思?
hewei2003 2004-05-05
  • 打赏
  • 举报
回复
什么叫提取a, b, c, d?你不是已经得到这4个变量了吗?

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧