DEV Community: John Ding

Personal voice Agent

John Ding — Wed, 10 Sep 2025 18:05:36 +0000

https://blog.csdn.net/2401_87189860/article/details/143156502

https://blog.csdn.net/u010522887/article/details/139668478

https://blog.csdn.net/weixin_41793707/article/details/88357571?spm=1001.2101.3001.6650.12&utm_medium=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7ERate-12-88357571-blog-147092809.235%5Ev43%5Epc_blog_bottom_relevance_base1&depth_1-utm_source=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7ERate-12-88357571-blog-147092809.235%5Ev43%5Epc_blog_bottom_relevance_base1&utm_relevant_index=14

Good font

John Ding — Wed, 10 Sep 2025 13:21:45 +0000

https://websitedemos.net/love-nature-02/about/?customize=template

Forum, Displauy, SangBleu Versailles

SVG tools

John Ding — Mon, 08 Sep 2025 20:28:34 +0000

Text 2 SVG
https://text-to-svg.com/dynapuff-font-to-svg

SVG 2 data URI
https://www.svgviewer.dev/svg-to-data-uri

install curl 8 on ubuntu

John Ding — Sat, 23 Aug 2025 03:34:50 +0000

sudo snap install curl

/snap/bin/curl --version

Go web framework

John Ding — Wed, 20 Aug 2025 15:13:33 +0000

Iris, Gin

VPN Zero Tier vs Tailscale

John Ding — Thu, 14 Aug 2025 14:33:23 +0000

2 good vpn options

Get the last response in React

John Ding — Wed, 30 Jul 2025 14:16:20 +0000

import React from "react";
import ReactDOM from "react-dom";

function fetchResults(page) {
  return new Promise((resolve, reject) => {
    const t = Math.floor(Math.random() * 5) + 1;
    setTimeout(() => {
      resolve(page+ '-' + t);
    }, t*1000);
  });
}

export default function App() {
  const [results, setResults] = React.useState([]);
  const [page, setPage] = React.useState(1);

  React.useEffect(() => {
    let ignore = false;
    fetchResults(page).then((res) => {
      if (ignore) {
        setResults([res]);
      }
    });
    return () => {
      // reset ignore before next button click(effect re-run)
      ignore = true;
    };
  }, [page]);

  return (
    <div className="App">
      <button onClick={() => setPage(page + 1)}>Test #{page}</button>
    </div>
  );
}

https://stable-diffusion-art.com/beginners-guide/

John Ding — Thu, 17 Jul 2025 13:22:13 +0000

https://stable-diffusion-art.com/beginners-guide/

Build Python QT5 application for Windos and macOS

John Ding — Wed, 16 Jul 2025 13:24:00 +0000

https://www.pythonguis.com/tutorials/packaging-pyqt5-applications-pyinstaller-macos-dmg/

Understanding of Options Equity

John Ding — Thu, 03 Jul 2025 03:58:44 +0000

https://jamie-wong.com/post/valley-equity/

https://www.dlapiperaccelerate.com/knowledge/2017/stock-options-101.html

VBA to replace a word in multiple MS word files

John Ding — Thu, 05 Jun 2025 13:17:34 +0000

https://www.msofficeforums.com/word-vba/16209-run-macro-multiple-docx-files.html#post47785

`Sub RunMacroOnAllFilesInFolder()
Dim flpath As String, fl As String
flpath = InputBox("Please enter the path to the folder you want to run the macro on.")
If flpath = "" Then Exit Sub

If Right(flpath, 1) <> Application.PathSeparator Then flpath = flpath & Application.PathSeparator
fl = Dir(flpath & "*.docx")
Application.ScreenUpdating = False
Do Until fl = ""
MyMacro flpath, fl
fl = Dir
Loop
End Sub

Sub MyMacro(flpath As String, fl As String)
Dim doc As Document
Set doc = Documents.Open(flpath & fl)
'Do stuff
doc.Save
doc.Close SaveChanges:=False

End Sub `

Sub GlobalTextReplacement()
' Root under which all manuals are stored
Dim rootPath As String
rootPath = "c:\Data\Manuals\"

' Find and replace text for wildcard replacement. Performed first.
Dim findTextsWild() As Variant, replaceTextsWild() As Variant
findTextsWild = Array("[ ]{2;}", "[cC]onfiguration[/ ]@[pP]olicy [rR]epository", "[sS]ervlet[- ]@[fF]ilter")
replaceTextsWild = Array(" ", "Configuration/Policy Repository", "Servlet-Filter")

' Find and replace text for normal case insensitive replacement. Performed second.
Dim findTexts() As Variant, replaceTexts() As Variant
findTexts = Array("DirX Access", "Policy Repository", "User Repository", "Servlet", "servletfilter", "SAML assertion", "DirX Access Server", "DirX Access Manager", "Deployment Manager", "Policy Manager", "Client SDK", "^p ", " ^p")
replaceTexts = Array("DirX Access", "Policy Repository", "User Repository", "Servlet", "Servlet-Filter", "SAML assertion", "DirX Access Server", "DirX Access Manager", "Deployment Manager", "Policy Manager", "Client SDK", "^p", "^p")

' Main code
Application.ScreenUpdating = False

Dim dirNames(20) As String
Dim dirNamesCount As Integer
dirNamesCount = 0

Dim dirName As String
dirName = Dir$(rootPath & "*", vbDirectory)
Do Until LenB(dirName) = 0
Dim dirPath As String
dirPath = rootPath & dirName
If ((GetAttr(dirPath) And vbDirectory) = vbDirectory) And (dirName <> ".") And (dirName <> "..") Then
dirNamesCount = dirNamesCount + 1
dirNames(dirNamesCount) = dirPath & "\"
End If
dirName = Dir$
Loop

Do While dirNamesCount > 0
Dim fileName As String
dirName = dirNames(dirNamesCount)
dirNamesCount = dirNamesCount - 1
fileName = Dir$(dirName & "*.doc", vbDirectory)
Do Until LenB(fileName) = 0
Dim filePath As String
filePath = dirName & fileName
fileName = Dir$

    Dim document As document
    Set document = Documents.Open(filePath)
    document.TrackRevisions = True

    document.Select

    Dim i As Integer, maxIndex As Integer
    maxIndex = UBound(findTextsWild)
    For i = LBound(findTextsWild) To maxIndex
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = findTextsWild(i)
            .Replacement.Text = replaceTextsWild(i)
            .Execute Replace:=wdReplaceAll, Forward:=True, _
                Wrap:=wdFindContinue, MatchWildcards:=True
        End With
    Next

    maxIndex = UBound(findTexts)
    For i = LBound(findTexts) To maxIndex
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = findTexts(i)
            .Replacement.Text = replaceTexts(i)
            .Execute Replace:=wdReplaceAll, Forward:=True, _
                Wrap:=wdFindContinue, MatchCase:=False, MatchWildcards:=False
        End With
    Next

    document.Save
    document.Close
Loop

Loop

Application.ScreenUpdating = True
End Sub

Nuxt 2 axios settings

John Ding — Fri, 30 May 2025 02:33:07 +0000

https://axios.nuxtjs.org/options/