用Vb如何读取Txt文本中的其中一部分内容到text中呢？如： 2002004,2011-02-26 23:41:37,7,1,0,0 0102,2.0

显示全部楼层 · 2011-3-22 18:40:33

如下：
2002004,2011-02-26 23:41:37,7,1,0,0
0102,2.00,32
0104,2.00,32
0105,2.00,32
我只需要读取2011-02-26 23:41:37到text1.text中，然后和系统的当前日期时间进行比较，如果读取过来的日期和时间和系统的时间相差超过5分钟，则text2中给予提示
请问如何来写这段程序呢？本人是菜鸟，请给出全部代码哦
本人好像没有金币了，如果能有金币，我会追加分给你的，谢谢

千问 · 2011-3-22 18:40:33

Private Sub Command1_Click()Dim MyStr As StringMyStr = "2002004,2011-02-26 23:41:37,7,1,0,00102,2.00,320104,2.00,320105,2.00,32"Dim a As Date, b() As String, c As Dateb() = Split(MyStr, ",") ‘如果上面要读取的内容是4行的话那就 b() = Split(MyStr, CrLf) 再Right(b(0),19)c = CDate(b(1))a = DateTime.NowIf DateAdd("n", 5, a) > c ThenTex

用Vb如何读取Txt文本中的其中一部分内容到text中呢？ 如： 2002004,2011-02-26 23:41:37,7,1,0,0 0102,2.0

用Vb如何读取Txt文本中的其中一部分内容到text中呢？如： 2002004,2011-02-26 23:41:37,7,1,0,0 0102,2.0