VB.NET 反射获取实体字段值过滤不符合XML字符
摘要：Private Sub ChangeObjectValues(Object1 As Object) Dim propertyInfo() As PropertyInfo = Object1.GetType().GetProperties((BindingFlags.Public Or Binding
阅读全文
posted @
2022-07-20 08:00
诗情寻知己
阅读(58)
推荐(0) 编辑
字符串中不符合xml格式的字符过滤
摘要：str = Regex.Replace(str, "[\x00-\x08\x0b\x0c\x0e-\x1f\x26]", "")
阅读全文
posted @
2022-07-19 18:33
诗情寻知己
阅读(29)
推荐(0) 编辑
几行代码解决实体转XMl出现Unicode字符转换异常问题
摘要：Vb.Net Dim info As 实体类型=new 实体类型() Dim info_str As String = JsonConvert.SerializeObject(ert) info_str = Regex.Replace(info_str, "\\[u|U][a-f0-9]{4,8}"
阅读全文
posted @
2022-07-19 18:20
诗情寻知己
阅读(95)
推荐(0) 编辑
VB Aspose.Pdf 字体变小方格问题处理
摘要：宋体是这样写的：SimSun原先以为是：宋体 先定义字体，在PDF中无法设置，这个找了很久，原来是使用：FontRepository.FindFont方式，这个坑了很久，很多都说是setFont，压根找不到这个方法 Dim font As Aspose.Pdf.Text.Font = Aspose.
阅读全文
posted @
2020-09-14 16:00
诗情寻知己
阅读(826)
推荐(0) 编辑
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) 编辑
