- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问：更新，日期转换出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162432)
-- 发布时间：2021/4/14 16:43:00
-- 请问：更新，日期转换出错
更新时，提示日期转换出错。
以下内容为程序代码:
1 try
2 Dim hc As New HttpClient(UpdatePath & "/update.txt") \'/
3 Dim str As String = hc.GetData()
4 Dim ud() As String = str.split("|")\'获取文件内容
5 Dim Sdate1 As Date = cdate(ud(0)) \'服务器update.txt发布日期
6 Dim Sdate2 As Date = Cdate(ud(1)) \'服务器Version.txt发布日期
7 Dim Cdate1 As Date = PublishDate \'客户端发布日期
8 Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
9 If Sdate2 ＞ Cdate2 OrElse Sdate1 ＞ Cdate1 Then
10 msgbox("有新版本")
11 Syscmd.Project.Update()
12 \'静默升级代码 Syscmd.Project.Update(False,False)
13 End If
14
15 catch ex As exception
16 msgbox(ex.message)
17 msgbox("下载失败")
18 End try
1 try
2 Dim hc As New HttpClient(UpdatePath & "/update.txt") \'/
3 Dim str As String = hc.GetData()
4 Dim ud() As String = str.split("|")\'获取文件内容
5 Dim Sdate1 As Date = cdate(ud(0)) \'服务器update.txt发布日期
6 Dim Sdate2 As Date = Cdate(ud(1)) \'服务器Version.txt发布日期
7 Dim Cdate1 As Date = PublishDate \'客户端发布日期
8 Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
9 If Sdate2 ＞ Cdate2 OrElse Sdate1 ＞ Cdate1 Then
10 msgbox("有新版本")
11 Syscmd.Project.Update()
12 \'静默升级代码 Syscmd.Project.Update(False,False)
13 End If
14
15 catch ex As exception
16 msgbox(ex.message)
17 msgbox("下载失败")
18 End try
[此贴子已经被作者于2021/4/14 16:43:47编辑过]
-- 发布时间：2021/4/14 16:45:00
--
此主题相关图片如下：riqi.png
-- 发布时间：2021/4/14 16:46:00
--
此主题相关图片如下：zfc1.png
-- 发布时间：2021/4/14 16:47:00
--
3 Dim str As String = hc.GetData()
msgbox(str)
4 Dim ud() As String = str.split("|")\'获取文件内容
4 Dim ud() As String = str.split("|")\'获取文件内容
msgbox(ud(0))
msgbox(ud(1))
5 Dim Sdate1 As Date = cdate(ud(0)) \'服务器update.txt发布日期
6 Dim Sdate2 As Date = Cdate(ud(1)) \'服务器Version.txt发布日期
7 Dim Cdate1 As Date = PublishDate \'客户端发布日期
5 Dim Sdate1 As Date = cdate(ud(0)) \'服务器update.txt发布日期
6 Dim Sdate2 As Date = Cdate(ud(1)) \'服务器Version.txt发布日期
7 Dim Cdate1 As Date = PublishDate \'客户端发布日期
msgbox(FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") )
8 Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
8 Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
-- 发布时间：2021/4/14 17:50:00
--
此主题相关图片如下：1.png
-- 发布时间：2021/4/14 17:52:00
--
此主题相关图片如下：2.png
此主题相关图片如下：3.png
此主题相关图片如下：4.png
-- 发布时间：2021/4/15 8:49:00
--
前面有一个特殊字符，截取第2个字符即之后的内容
-- 发布时间：2021/4/15 9:35:00
--
谢谢，去掉第一个字符就好了。就是奇怪啊，应该是记事本的问题