xzbyw-优快云博客

原创 VB编程：ini配置文件的读写函数

'特别说明：有时为了对齐排版格式的需要，如文件：炭化室状态.txt，会在等号左右添加一些空格，测试发现，ReadINI会忽略掉这些空格，这是 GetPrivateProfileString API函数决定的，可理解为trim$(Key)后读取和 trim$(返回值)再返回。'实例：WriteIni "WQMInfo","BMF", "value_ok ","E:\DoCin\WQM.ini"'实例：DelIniKey "WQMInfo", "TestKey", "E:\DoCin\WQM.ini"

2024-02-29 10:30:14 635

原创 VB编程：得到INI配置文件中某小节名下的全部文本内容

'参数：optIncludeSectionName_0 '默认=0，不连带小节名返回，只返回其下内容，=1返回串中包括小节名（第一行），但读不到任何设置时，就不会只返回小节名而返回空。If Left$(LsTmpStr$, 1) = "[" And Right$(LsTmpStr$, 1) = "]" Then '下一节了。'实例：Print GetSectionAllTxtInINIFile("[登录帐户]", "E:\帐户.ini", 1)'参数：SectionName '小节名。

2024-02-26 10:21:50 473 1

原创 VB编程：删除INI配置文件中某小节名下的全部文本内容

If Left$(LsTmpStr$, 1) = "[" And Right$(LsTmpStr$, 1) = "]" Then '下一节了。' delSectionAllTxtInINIFile "登录帐户XX", "S:\帐户.ini", 0 '保留小节名不删。'实例：delSectionAllTxtInINIFile "[登录帐户XX]", "S:\帐户.ini" ''参数：SectionName　　'小节名，前后可有[]，也可无。

2024-02-25 14:04:30 527

原创 VB函数：枚举得到INI配置文件中某小节名下的所有键名Key组成的字符串

ElseIf Left$(LsTmpStr$, 1) = "[" And Right$(LsTmpStr$, 1) = "]" Then '下一节了。'返回：0``1``2``3``4``5``6``7``8``9``10``11``12``13``14``15``16......'SectionArray = Split(函数返回值, "``")'返回：键名1``键名2``......``键名X（以``分隔）'删除最后的两个"``"

2024-02-22 09:15:29 798 1

原创 VB函数：枚举得到INI配置文件中所有小节名串

'示例：Print EnumAllSectionsInINIFile("E:\消息发布器（配置）.ini")'返回：小节名1``小节名2``......``小节名X（以``分隔）'SectionArray = Split(函数返回值, "``")'原理是根据INI文件中，小节名即在[]中的部分''功能：枚举得到INI配置文件中所有小节名串。'删除最后的两个"``"'返回：当前位置``登录帐户。

2024-02-21 14:34:46 738 1

原创运行某个程序后，如何快速从批量改变的文件中找到所需设置具体是在哪个文件的哪个位置

不断缩小解压释放文件范围，重复以上操作，最终找到了设置就在这个文件中：C:\Users\Administrator\AppData\Roaming\Enfocus Prefs Folder\PitStop Pro\PitStopPro.uprefs。源由：为了固定Pitstop Pro动作列表中显示结果的设置保持为：始终。始终："ActionCertifiedPreflight" "2"从不："ActionCertifiedPreflight" "0"，退出Adobe Acrobat Pro。

2024-02-19 13:54:16 408 1

原创 Win7系统无法加载Microsoft Windows Common Controls 6.0 Microsoft Rich TextBox Controls 6.0等控件，显示对象库未注册的解决方法

虽然这个看起来没什么关联，但通过这样“引导”一下，以后无需再加载msdatgrd.ocx相应的部件，即能顺利加载部件：Microsoft Windows Common Controls 6.0，Microsoft Rich TextBox Controls 6.0了。运行VB，加载部件：Microsoft Windows Common Controls 6.0，Microsoft Rich TextBox Controls 6.0等出现下图错误而加载失败。也可以这样操作，点【浏览】

2024-02-18 14:34:07 1617

原创如何将FoxitPhantomPDF.exe福昕高级PDF编辑器应用密文的默认填充黑色改成白色或其它色

0、福昕高级PDF编辑器默认应用密文后是黑色填充，相应位置会留下黑色块，很不好看。6、此时要退出一下程序再进（否则只会改一个），重复1-3步，点【应用密文】即可。4、右击第一项，点属性…，如果右击没有显示出属性…，是因为没有操作第1步。5、在跳出的属性框就可以改填充色了，并勾选设置当前属性为默认，关闭。1、菜单【保护】-点击下拉框【标记为密文】-选择【文本&图像】2、如果要通过文字确定待加为密文的文字，点击【查找&密文】3、选中查找出的部分或全部并【标记选择项以添加密文】

2024-02-18 14:18:51 789

原创如何用Adobe Premiere Pro将4：3视频如何转为16：9的，并消除左右两侧的黑边

7、暂时取消视频轨道2输出（点视频轨道右侧的小眼睛），点选V1轨道操作，并取消勾选【等比缩放】，将宽度拉至16:9屏最合适宽度，并应用高斯模糊对V1轨进行虚化处理，然后打开V2轨输出，这样就成了左右两侧虚化，中间为实图的16:9效果了。9、也可以直接用一个视轨进行拉伸转换，但这样处理后的视频如果是等比缩放会丢失上下部分内容，不是等比缩放则左右会拉伸变形，并会造成清晰度下降，如果不介意左右黑边直接导出就可以了。4、将4:3视频拖入编辑区，跳出对话框，点保持现有设置。8、Ctrl+M导出媒体即可。

2024-02-18 09:25:01 2340

原创直接在Windows7，Windows10，Windows11 x64位系统上安装、运行VB6.0+CodeSMART图示教程

直接在windows10、windows11 64位系统上安装vb6.0图标教程

2024-02-18 09:09:47 5319 1

原创一个类似Excel分类汇总的VB函数，可根据一个文本文件中的Key字段，进行汇总得到例如名称相同记录的平均值；计数；求和；最大值；最小值；标准偏差，可直接调用

existingData(I) = Format(existingData(I), "0.0###############") '保留小数点前面唯一的0，并删除掉小数点后无意义的0，如：.5450000-->0.545，45.00-->45.0而不是：45.sampleData(I) = Format(sampleData(I), "0.0###############") '保留小数点前面唯一的0，并删除掉小数点后无意义的0，如：.5450000-->0.545，45.00-->45.0而不是：45.

2024-02-14 15:41:35 444 1

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

xzbyw的博客