摘要: --先用查询 [一-﨩] 来选中所有中文,这样能看到所有的标点和数字。然后再用下面vba替换,最终可以全文中文标点。 --查询标点[!一-﨩0-9a-zA-Z]查询所有标点 Sub ReplaceEnglishPunctuationToChinese() ' 声明变量 Dim doc As Docu 阅读全文
posted @ 2026-01-04 20:39 绿水青山777 阅读(8) 评论(0) 推荐(0)
摘要: 、 阅读全文
posted @ 2025-06-10 19:47 绿水青山777 阅读(6) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2025-06-10 19:43 绿水青山777 阅读(22) 评论(0) 推荐(0)
摘要: 1.创建文件 2.加入调试异常 3.跳过系统文件 阅读全文
posted @ 2025-05-30 21:23 绿水青山777 阅读(9) 评论(0) 推荐(0)
摘要: Delphi中取得程序版本号 Delphi做的程序,如果想包含版本信息, 必须在Delphi的集成编辑环境的菜单“Project/Options/Version Info”里面添加版本信息。即在Version Info 选项卡中选中“Include version information in pr 阅读全文
posted @ 2022-07-05 17:09 绿水青山777 阅读(724) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2022-06-09 11:33 绿水青山777 阅读(26) 评论(0) 推荐(0)
摘要: function RoundFloat(f: double; i: integer): double;var s: string; ef: extended;begin s := '#.' + StringOfChar('0', i); ef := StrToFloat(FloatToStr(f)) 阅读全文
posted @ 2022-06-09 11:31 绿水青山777 阅读(82) 评论(0) 推荐(0)
摘要: CREATE OR REPLACE Function GetTianXiaoSFenZ(InYingWCSJ ZK_ShiXWDXX.YingWCSJ%Type, InWanCSJ BingRBL.WanCSJ%Type) Return VarChar2 is Result VarChar2(40) 阅读全文
posted @ 2022-06-03 21:44 绿水青山777 阅读(47) 评论(0) 推荐(0)
摘要: select t.COLUMN_NAME, Decode(t.DATA_TYPE,'NUMBER',DATA_TYPE||'('||DATA_LENGTH||','||DATA_PRECISION||')',DATA_TYPE||'('||DATA_LENGTH||')') DATA_TYPE, t 阅读全文
posted @ 2022-04-10 10:48 绿水青山777 阅读(317) 评论(0) 推荐(0)
摘要: function GetVer(FName: string): string;var InfoSize, Wnd: DWORD; VerBuf: Pointer; szName: array[0..255] of Char; Value: Pointer; Len: UINT; TransStrin 阅读全文
posted @ 2021-05-06 11:36 绿水青山777 阅读(93) 评论(0) 推荐(0)