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: VB
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 …
[VBS]文件批量转编码
工作中需要将大量GB2312编码的文件转换为UTF-8编码，Baidu找了一段很实用的VBS可以有效解决问题。 使用方法也很简单，添加到工程调用ConvertFile即可。需要注意的是Adodb.Stream方式生成的UTF-8文件的头部会抱憾3个字节的BOM，处理PHP之类的无BOM要求的文件时需要注意一下。
使用VB.Net GDI+编程编写的3D魔方游戏程序
最近学习了.net下的GDI+编程，下面小秀一下成果，使用GDI+编写的桌面魔方程序，今天把源代码放上，欢迎大家下载，如果机器上有.net环境的话可以直接运行bin目录下的MagicCube.exe进行游戏。 源代码下载地址 http://www.lidaren.com/code/magiccube/magiccube.zip 下面方式几个重要的算法程序 1，魔方正面九宫格90度翻转，这个只要细心观察翻转前和翻转后的魔方，你就可以得到答案 左转90度：以(0,0)(2,2)为对称轴翻转后，再以(1,0)(1,2)为对称轴翻转 右转90度：以(0,2)(2,0)为对称轴翻转后，再以(1,0)(1,2)为对称轴翻转 算法如下：
使用递归位运算实现对字节的中心转置反转
字节的中心转置反转，这是一道的IBM技术面试题，供参考 原题如下： 给定一个任意字节长度的数据（以一个Byte为例），要求实现数据的位中心翻转， 也就是数据的对称位数据交换，比如： 1010 1100 -> 0011 0101 1111 1111 -> 1111 1111 0000 0000 -> 0000 0000 1111 0000 -> 0000 1111 解题思路也很简单，只要使用位运算实现以下的位变化即可，但是需要考虑到其他 位的情况，注意运算符的使用即可，IBM不愧是IBM 11 – > 11 00 – > 00 10 – > 01 01 – > 10
VB仿Windows的记事本notepad的程序源代码
相信大家学VB如果连记事本这东西都不知道话就很郁闷了，CG今天接到Kivi的任务，做一个
能看懂代码的记事本程序作为VB作业上交，据说还要上台讲，这老师真够难为人的的，反正
CG是有段时间没有见到了，源代码附上，如果大家有需要的话拿走，毕竟像初学者还是需要
的。
记事本程序主要是要求在VB中使用Common Dialog Control控件的打开文件，打开字体，
保存文件对话框的功能，实现文本的创建、修改、编辑、保存的功能，也是大家平时也使用
的比较多的文本编辑器。
VB6实现自定义windows的字体对话框修改字体
昨天没有时间把给Kivi的代码发上来，今天补上，仅仅是提供给一些VB的初学者和
Kivi同学，如果需要大家可以下载下来看看，VB6是个很老的工具了，不过现在本科
的理科同学学还是有需要的
这是一个非常简单的VB Form应用要求分别使用windows的系统自带字体对话框和
自己制作一个字体对话框实现对一个文本区域的文本的字体的修改，要求自己制作的
能够实现Windows自带的字体对话框的功能。