VBA实现Base64编码和Base64解码，用于处理加密的URL非常方便。 VBA Base64 编码/加密函数： ‘VBA Base64 编码/加密函数： Function Base64Encode(StrA As String) As String ‘Base64 编码 On Error GoTo over ‘排错 Dim buf() As Byte, length As Long, mods As Long Dim Str() As Byte Dim i, kk As Integer kk = Len(StrA) – 1 ReDim Str(kk) For i = 0 To kk Str(i) = Asc(Mid(StrA, …
Tag Archives: VBscript
[VBS]Excel获取所有Sheet的名称
1.在当前Sheet里面获取当前Sheet名 选取任意单元格，编辑公式 =MID(CELL(“filename”,A1),FIND(“]”,CELL(“filename”,A1))+1,255) 2.在当前Sheet里面获取Workbook下所有的Sheet名 使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码： Sub Maco1() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub 然后运行指定宏既可以在当前sheet里面获取到了
VBS实现目录下所有文件归集
一个简单的需求： Windows 环境下用VBS/VBA来实现抽取某一个特定目录下的全部所有文件，要求遍历当前目录下所有的子目录。 注意各子目录下文件的文件名可能会重复，各子目录下存在空目录的情况。 实现VBS代码 ‘需要遍历的目录路径 dim strDirPath = “c:\dir” ‘遍历目录 Private Sub FileTree(strPath) Set obFso = CreateObject(“Scripting.FileSystemObject”) If obFso.FolderExists(strPath) Then Set obFolder = obFso.GetFolder(strPath) ‘遍历当前目录下的所有目录，递归调用 Set obSubFolders = obFolder.SubFolders For Each obSubFolder In obSubFolders Call FileTree(obSubFolder.Path & “”) Next ‘剔除当前目录 If strPath = Trim(strDirPath) Then Exit Sub End If ‘遍历当前目录下的所有文件 Set obFiles = obFolder.Files …
Windows下实现Deamon守护脚本
最近需要在Windows服务器上保持程序长期允许，因为程序比较老，无法用srvany.exe 改写成windows服务，只能自己手动编写守护脚本实现，网上找了短比较靠谱的守护脚本，在此mark一下。支持监视进程、端口。 守护脚本定义部分 @echo off ::检测时间间隔，单位：秒 set _interval=5 ::需要守护的进程名称 set _processName=ProcessName ::需要守护的进程启动命令 set _processCmd=C:\xxxx.exe ::需要守护的进程预估启动完毕所需时间，单位：秒 set _processTimeout=10 ::需要守护的进程所监听的端口 set _port=8080 ::进程用户名，一般是Administrator set _username=Administrator
[VBS]文件批量转编码
工作中需要将大量GB2312编码的文件转换为UTF-8编码，Baidu找了一段很实用的VBS可以有效解决问题。 使用方法也很简单，添加到工程调用ConvertFile即可。需要注意的是Adodb.Stream方式生成的UTF-8文件的头部会抱憾3个字节的BOM，处理PHP之类的无BOM要求的文件时需要注意一下。
基于EXTJS+ASP的WEB桌面应用程序
CG在IBM-ETP的培训已经进入了第二阶段了，今天要发布的就是CG在前几天做的一
个基于EXTJS的小应用，学生的问题问答提问系统，目的是为了方便学生在授课和
作业过程中能够相互之间交流和问题解答，同时为了即时交流，又增加了一个简单的
即时通信的聊天工具。
发布本地美容工作室ASP网站整站源代码
继续上篇日志发布新整站代码，这次发布是最近刚完成的一个本地美容造型工作室
的展示网站的整站源代码，技术上还是基于ASP+Access，另外由于工作室的展示要
求实现弹窗显示效果，所以使用了Jquery的相关技术，CG本人一直对Jquery偏爱有
加，当然做出来的效果也是很满意的，另外首页下边的滚动效果也是使用的Jquery
实现的，效果大家测试的时候可以看到。