读取xml某个节点的值 '定义xml字符串内容地址 Dim xmlFileStr As String = "" '定义所需读取节点的名称 Dim readNodeName As String = "" Function readXMl(ByVal xmlFileStr As String, ByVal readNodeName As String) As String '定义节点内容 Dim nodeValue As String = "" Tr…
有点懵逼的webserver访问 '定义webserver地址 Dim postUrl As String = "" '定义webserver所需xml字符串参数 Dim xmlRequest As String = "" '获取webserver返回信息 Dim responseText As String = "" '定义传输字符编码 Dim URLEncode As System.Text.Encoding = System.Text.En…
尴尬的webapi访问返回json对象 首先Imports Newtonsoft.Json Imports MSXML2(Interop.MSXML2.dll) Dim URLEncode As System.Text.Encoding = System.Text.Encoding.GetEncoding("utf-8") '所需传递的json对象参数 Dim requestDataJson As String=requestDataJson = JsonConvert.Seriali…
从服务器通过URL不中转保存的下载 首先引用System.dll 然后新开一个页面,空的,在后台Page_Load方法里写 Dim docPath As String ="" Dim fileName As String = Dim myWebClient As New Net.WebClient() Dim data() As Byte = myWebClient.DownloadData(New Uri(docPath)) Response.Clear() Response.A…
迷之集合- dataTable '定义一个datatable,并声明一个空对象 Dim data As DataTable = New DataTable() '获取行数 Dim rows As Integer = data.Rows.Count '获取每行列名以及值 For Each row As DataRow In data.Rows For Each col As DataColumn In data.Columns '获取列名 Print(col.ColumnName) '获取列值 P…
迷之集合- ArrayList '定义一个字符串 Dim dataType_ImageStr As String = "2023,2091,2092,2096,2212" '将字符串转化为数组 Dim dataType_Image() As String = dataType_ImageStr.Split(",") '将数组转化为数组集合 Dim DataType_ImageList As ArrayList = ArrayList.Adapter(dataType…
