所以我的代码在运行Windows 7 Ultimate的系统上运行正常。它在运行相同的笔记本电脑上运行良好。但我的服务器既可以是Windows服务器操作系统,也可以是Windows 7专业版。
现在我的部分代码从网站读取数据。但是这些数据可能存在也可能不存在。我有一个浏览器控件读取它,我使用StringSplit来分解它。如果某些部件很棒。如果不是,我让一个捕获设置为0。
所以起始位:
Dim parts As String() = webdata.Split(New String() {Environment.NewLine},
StringSplitOptions.None)
我原以为这就是问题所在。 Enviroment.NewLine即使在略有不同的Windows 7服务器下也可能有所不同。所以我在两者上运行循环来转储数据。
Dim testloop As Integer = 0
Do Until testloop = 25
MsgBox(testloop & ") " & parts(testloop))
testloop = testloop + 1
Loop
它们都以完全相同的顺序返回完全相同的结果。因此,除非我遗漏了某些东西,否则就不会有环境变化。
但是这在我的Windows系统上读得很好而不是VPS:
Try
Firstdata = Parts(22)
Seconddata = Parts(24)
Catch
Firstdata = 0
Seconddata = 0
End Try
这可能不是最好的方法,但它在VPS之外始终如一地工作,我不明白为什么环境会改变它。
在本地完全相同的时间查看完全相同的数据,它会查看返回数据的表格,否则会返回0。在VPS上它只返回0。
我认为这将是对stringsplit的一个简单改变,但循环显示(22)和(24)作为我在循环中寻找的数据。我不明白为什么TRY在不同的环境中会有所不同。
这里的任何帮助将不胜感激。我可以设置一个7 Ultimate服务器,但我很了解到底发生了什么。