yl_sunmoon-CSDN博客

原创 PowerDesigner16.5中使用Name生成Comment

生成数据库脚本时，code转换为数据库中表名及字段，如果将将PDM中的name（一般为中文名称）转换为comment，则生成数据库备注栏显示name（中文名称），方便程序员的使用。将name转化为comment，可使用以下脚本批量完成。

2022-11-26 20:37:21 743 1

原创 MongoDb 4.0+数据库备份与还原

数据库备份mongodump -h 127.0.0.1:27017 -ucms -psz_llq@2019 -d cms -o E:\db\mongodb\backup备注：-h 连接地址 -u数据库用户名 -p数据库密码 -d 数据库 -o 备份路径数据库还原mongorestore -h 127.0.0.1:27017 -ucms -psz_llq@2019 -d cms...

2019-08-08 11:32:24 832

原创 7z 命令行进行单文件极限压缩与解压

1、首先将7z.dll、7z.exe、7zFM.exe、7zG.exe放入到项目中某一文件夹下2、

2014-10-06 22:30:18 5926

原创 VBA 程序暂停10秒后向下执行

Dim time As String time = CStr(Now()) 方式一' If Application.Wait(Now + TimeValue("0:00:10")) Then' MsgBox time & Chr(10) & Now()' End If 方式二 newHour = Hour(Now()) newM

2014-07-25 11:06:46 13241

原创 VBA Excel 列拆分

本人初次学习所写，写的不好的' 列拆分，并按照“|”来拆分,如果某列表头中包含“|”则进行拆分，否则不进行拆分' 【数据替换数值版】中的数据Copy到该Sheet中 Dim cSplit As Integer, cSplitName As String, stNewColumnsSplit As Worksheet Application.Sta

2014-07-19 16:58:47 768

原创 VBA Excel值数据替换

' 数据替换（原始列右侧数值版） Dim stReplace As Worksheet, stReplaceTextVersion As Worksheet, cReplace As Integer, rReplaceOrder As Integer' Application.StatusBar = "正在处理数据替换"' Application.ScreenUpda

2014-07-19 16:52:04 1572

原创 VBA Excel 提取有用的列并作列排序

stData 数据文件，rngConfig 配置文件Public Function Run(ByRef stData As Worksheet, ByRef rngConfig As Range) As Worksheet'On Error GoTo Proc_Err Dim r_Config As Integer, str_ColumnName As String

2014-07-10 20:25:42 1278

原创关于HTML5本地存储实例

常用网站 td{height:20px;} .r{text-align:right;} #txtUrl{width:400px;} .c{text-align:center;} select{height:20px;} select option{padding:3px;}

2014-05-17 16:26:59 589

yl_sunmoon的专栏