VB 老旧版本维护系列---尴尬的webapi访问返回json对象
摘要：尴尬的webapi访问返回json对象 首先Imports Newtonsoft.Json Imports MSXML2（Interop.MSXML2.dll） Dim URLEncode As System.Text.Encoding = System.Text.Encoding.GetEncod
阅读全文
posted @
2019-12-10 16:05
诗情寻知己
阅读(697)
推荐(0) 编辑
VB 老旧版本维护系列---兜兜转转有点晕：从服务器通过URL不中转保存的下载
摘要：从服务器通过URL不中转保存的下载 首先引用System.dll 然后新开一个页面，空的，在后台Page_Load方法里写 Dim docPath As String =”” Dim fileName As String = Dim myWebClient As New Net.WebClient(
阅读全文
posted @
2019-12-10 16:04
诗情寻知己
阅读(127)
推荐(0) 编辑
VB 老旧版本维护系列---有点懵逼的webserver访问
摘要：有点懵逼的webserver访问 ‘定义webserver地址 Dim postUrl As String = "" ‘定义webserver所需xml字符串参数 Dim xmlRequest As String = "" ‘获取webserver返回信息 Dim responseText As S
阅读全文
posted @
2019-12-06 13:32
诗情寻知己
阅读(169)
推荐(0) 编辑
VB 老旧版本维护系列---读取xml某个节点的值
摘要：读取xml某个节点的值 ‘定义xml字符串内容地址 Dim xmlFileStr As String = "" ‘定义所需读取节点的名称 Dim readNodeName As String = "" Function readXMl(ByVal xmlFileStr As String, ByVa
阅读全文
posted @
2019-12-06 13:32
诗情寻知己
阅读(403)
推荐(0) 编辑
VB 老旧版本维护系列---迷之集合- dataTable
摘要：迷之集合- dataTable ‘定义一个datatable，并声明一个空对象 Dim data As DataTable = New DataTable() ‘获取行数 Dim rows As Integer = data.Rows.Count ‘获取每行列名以及值 For Each row As
阅读全文
posted @
2019-12-06 11:06
诗情寻知己
阅读(291)
推荐(0) 编辑
VB 老旧版本维护系列---迷之集合- ArrayList
摘要：迷之集合- ArrayList ‘定义一个字符串 Dim dataType_ImageStr As String = "2023,2091,2092,2096,2212" ‘将字符串转化为数组 Dim dataType_Image() As String = dataType_ImageStr.Sp
阅读全文
posted @
2019-12-06 10:05
诗情寻知己
阅读(286)
推荐(0) 编辑
