- 博客(13)
- 收藏
- 关注
RSS订阅原创 封装的一个messagebox 类,不需要每次都填写标题这些,省去很多麻烦的步骤,有统一标题要求,或者需要修改的时候,直接修改一个即可,我真是一个机灵精
【代码】封装的一个messagebox 类,不需要每次都填写标题这些,省去很多麻烦的步骤,有统一标题要求,或者需要修改的时候,直接修改一个即可,我真是一个机灵精。
2024-04-11 11:36:52
223
1
原创 c#WebAPI项目中使用EFCORE orm来读取和写入,数据库操作
【代码】c#WebAPI项目中使用EFCORE orm来读取和写入,数据库操作。
2024-03-17 15:26:47
488
2
原创 VBA 正则去除汉字
Function dqsz(A) With CreateObject("vbscript.RegExp") .Global = True .ignorecase = True .Pattern = "[\u4e00-\u9fa5]" dqsz = .Replace(A, "") End WithEnd Function
2022-03-05 16:44:42
1323
原创 VBA 函数计算date之间的天数工作日
Function daydif(x As Range, y As Range) Dim date1, date2 As Date date1 = x date2 = y dif = 0 Do If (date1 >= date2) Then Exit Do End If date1 = date1 + 1 t1 = Weekday.
2022-03-05 16:39:51
1870
原创 从右边开始查找指定字符在字符串中的位置
Public Function MyInStrRev(MainStr As String, SubStr As String) As Integer Dim Counter As Integer Dim Success As Boolean If VBA.Len(MainStr) < VBA.Len(SubStr) Then MyInStrRev = 0 Else For Counter = VBA.Len(SubStr) To VBA.
2022-03-05 16:38:01
1577
原创 VBA、.net查汉字区位码
Public Function 区(fa$) As String On Error Resume Next Dim L1$, R1$, L$, R$, a, b$, c, d, e$ c = Len(fa) For i = 1 To c d = Mid(fa, i, 1) a = Hex(Asc(d)) L1 = CInt("&H" + Mid(a, 1, 2)) ‐ 160 R1 = CInt("&a.
2022-03-05 16:36:05
316
原创 VBA将金额数字转成中文大写
Function Money(Number As Currency) Dim i, j, k, m, leng As Integer '计数器 Dim Zero As Integer '连续零标识 Dim Tnumber As String '储存数字字符串,计算数组长度 Dim Num() As String '定义数组 Dim Num1(3) As String '存储万元以下数字 Dim Num2(1) As String '储存拆分后的数字 .
2022-03-05 16:34:49
2395
原创 WebClient WebHttpRequest 返回结果乱码
在做个网抓时，用各种工具调试出来的结果都是正确的，上VS获得结果的时候一直出现乱码啊~都要崩掉了，后面发现返回的GZIP加密的，于是用了下面的方法，轻松搞定~愉快！ Function GetHtml(url) Dim req As Net.HttpWebRequest = Net.HttpWebRequest.Create(url) req.AllowAutoRedirect = False req.Method = "Get" ...
2022-02-20 17:39:21
535
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人