hs0000t

hs0000t

V2EX 第 341061 号会员,加入于 2018-08-14 14:07:34 +08:00
今日活跃度排名 22442
求批量替换康熙部首为普通汉字的 VBA 脚本
问与答  •  hs0000t  •  4 天前  •  最后回复来自 hs0000t
1
有多少人收到了微信发的邮件?
分享发现  •  hs0000t  •  260 天前  •  最后回复来自 mritd
7
不知道“拖把更名器”的作者现在怎么样了
分享发现  •  hs0000t  •  2021-12-31 01:36:22 AM  •  最后回复来自 MeiJiayun
45
支持 3D Touch 的屏幕最大的设备是什么?
Apple  •  hs0000t  •  2021-12-09 19:20:50 PM  •  最后回复来自 Leonard
14
机械硬盘,如何愉快用 Windows?
  •  1   
    硬件  •  hs0000t  •  2021-10-07 18:37:25 PM  •  最后回复来自 Rheinmetal
    49
    知乎又崩了?
    全球工单系统  •  hs0000t  •  2021-08-26 00:32:00 AM  •  最后回复来自 hs0000t
    1
    一块妥善保存的硬盘,理论上能多少年内保证数据不丢失?
  •  1   
    问与答  •  hs0000t  •  2021-04-13 13:48:00 PM  •  最后回复来自 mcoo1997
    14
    用惯了触摸板手势,如何在台式机上使用触摸板?
    问与答  •  hs0000t  •  2021-01-12 11:44:34 AM  •  最后回复来自 Boyang
    18
    hs0000t 最近回复了
    分母
    aTI0NW9AcXEuY29t
    1 天前
    回复了 HackerTerry 创建的主题 宽带症候群 异地组网方案求推荐
    家里 nas 上搭了一个 headscale ,用着还不错
    安卓 kiwi 复现失败,版本号 107.0.5304.74
    感谢 chatgpt ,帮我解决了这个近一年前的问题

    ```vba
    Sub RestoreChineseCharacters()
    '使用 WinHttp 对象下载 JSON 文件并读取内容
    Dim url As String
    url = "https://github.com/ritajie/kangxi_i_know_you/blob/master/dict.json?raw=true"
    Dim httpRequest As Object
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    httpRequest.Open "GET", url, False
    httpRequest.send
    Dim jsonFileContent As String
    jsonFileContent = httpRequest.responseText

    '解析 JSON 内容并保存到字典中
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    Dim startPos As Long
    Dim endPos As Long
    Dim key As String
    Dim value As String
    startPos = InStr(jsonFileContent, Chr(34)) + 1
    Do While startPos > 0
    endPos = InStr(startPos + 1, jsonFileContent, Chr(34))
    key = Mid(jsonFileContent, startPos, endPos - startPos)
    startPos = InStr(endPos + 1, jsonFileContent, Chr(34)) + 1
    endPos = InStr(startPos + 1, jsonFileContent, Chr(34))
    value = Mid(jsonFileContent, startPos, endPos - startPos)
    dict.Add key, value
    startPos = InStr(endPos + 1, jsonFileContent, Chr(34)) + 1
    Loop

    '遍历 Word 文档内容并替换“康熙部首”编码
    Dim doc As Document
    Set doc = ActiveDocument
    Dim para As Paragraph
    Dim text As String
    For Each para In doc.Paragraphs
    text = para.Range.Text
    Dim k As Variant
    For Each k In dict.Keys
    text = Replace(text, k, dict(k))
    Next k
    para.Range.Text = text
    Next para
    End Sub
    ```
    5 天前
    回复了 aceinnes 创建的主题 问与答 2023 年百兆宽带够用吗
    @dengshen 有个东西叫迅雷快鸟,相当于运营商把这部分业务包给第三方做了
    10 天前
    回复了 wsz66 创建的主题 问与答 找一个生成代码的工具
    navicat?
    11 天前
    回复了 zhangfeiwudi 创建的主题 问与答 各位老鸽们,有家用服务器推荐吗?
    4C4G 三年 140 的路过
    57 天前
    回复了 mmr 创建的主题 问与答 各位如何评价 2023 拜年祭?
    泻药,不看
    白描 滴答清单
    群晖的话,可以试试不用 docker ,套件中心加个第三方源,然后直接安装套件,用了几个月了没遇到什么问题
    关于   ·   帮助文档   ·   博客   ·   nftychat   ·   API   ·   FAQ   ·   我们的愿景   ·   广告投放   ·   实用小工具   ·   3011 人在线   最高记录 5556   ·     Select Language
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.5 · 146ms · UTC 11:48 · PVG 19:48 · LAX 04:48 · JFK 07:48
    Developed with CodeLauncher
    ♥ Do have faith in what you're doing.