vb截取字符串问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 18:36:37
我在窗体上放置了3个Text,1个按钮,还有一个Calendar
当点击Calendar后Text3种显示一个日期,如"17/7/2008"在Text1中输入数据后(数字,字母,汉字混合型),点Command1,就将数据以Text2.Text & "}" & Text3.Text & "{" & Text1.Text保存到C：\text.txt中。（对了，忘了说Text2了，Text2在窗体启动时自动加载C：\text.txt中的内容）

我想知道如何将每个日期所对照的内容给截取出来，如

}17/7/2008{dd}18/7/2008{今天我高兴吗？}8/8/2008{今天是八月八日，希望中国能夺得更多金牌！}8/8/2008{今天是八月八日

也就是从每一个“}”开始至下一个“{”结束截取时间，从每一个“{”开始到下一个“}”结束截取与日期相关联的内容（最后一个没有“}”，那就是在截取最后一个数据时截到最后）

Calendar是一个日历似的东西，每次单击一个日期就触发一次事件
好人做到底，最好告诉我怎样每单击一次日期就在Text1中显示相应的数据
我知道这很麻烦，所以我送出50分积分作为报酬！
回2L,如果用","容易与数据里的","混淆.你看改成
Text2.Text & "◇" & Text3.Text & "◇" & Text1.Text
应该怎样做("◇"毕竟不是常用的符号)

dim r as string,A,i as integer
r="◇17/7/2008◇dd◇18/7/2008◇今天我高兴吗？◇8/8/2008◇今天是八月八日，希望中国能夺得更多金牌！◇8/8/2008◇今天是八月八日"
a=split(r,"◇")
后面我想你应该会了，数组A中下标从1开始，奇数项是时间，偶数项是事件，A(0)=""。

calendar是什么我不知道，我来截取字符
s="}17/7/2008{dd}18/7/2008{今天我高兴吗？}8/8/2008{今天是八月八日，希望中国能夺得更多金牌！}8/8/2008{今天是八月八日"
for i=1 to len(s)
x=mid(s,i,1)
if x="}" then
for j=i to len(s)
y=mid(s,j,1)
if y="{" then
print mid(s,i+1,j-1-i)'我是把它打印出来，你可以把它保存到数组或其他地方
exit for
end if
next
end if
next

截取文字内容也是同理！

text3.text=calendar1.value