利用宏从Word、Excel中提取Flash

2010-2-26 寒川 计算机

今天网上弄到个flash游戏,感觉挺不错的,但是flash被嵌在了excel中,想单独保存出来。百度了一下找到如下宏代码可以实现。
Sub CollectFlashFromExcel()
'
'
' http://huikon.cn
'

'
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
 

tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "请选择一个包含Flash的Office文档")

 
If tmpFileName = "False" Then Exit Sub

myFileId = FreeFile

Open tmpFileName For Binary As #myFileId

MyFileLen = LOF(myFileId)

ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId

Application.ScreenUpdating = False

i = 0

Do While i < MyFileLen

    If myArr(i) = &H46 Then

        If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then

            swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)

            ReDim swfArr(swfFileLen - 1)

            For myIndex = 0 To swfFileLen - 1

                swfArr(myIndex) = myArr(i + myIndex)

            Next myIndex
           Exit Do
        Else
           i = i + 3
        End If
    Else
       i = i + 1
    End If
Loop

 

myFileId = FreeFile

tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"

Open tmpFileName For Binary As #myFileId

Put #myFileId, , swfArr

Close myFileId


MsgBox "以" & tmpFileName & "名字保存"

End Sub

 

 打开(或新建)一个excel文档,将上述代码输入宏试图中,然后运行,再代开含有flash的excel或word文档就能将flash文档的从word、Excel中提取出来了。

标签: office flash word excel

评论(0) 浏览(7816)

MeeGo系统手机横空出世了。。。

2010-2-25 寒川 互联网事

    近日,诺基亚和英特尔刚刚联合发布了他们共同开发的MeeGo系统,紧接着LG就宣布,他们将把此前在CES2010上展出的GW990改为MeeGo系统推出,这样GW990就将成为第一款MeeGo系统手机横空出世了……

    此前这台 GW990 采用的是英特尔的Moblin系统,也是世界第一台Moblin系统手机。GW990 采用英特尔开发的Moorestown 专用处理器(耗电量仅有Atom 处理器的 1/50),屏幕为 4.8 寸、分辨率 1020 x 480,内置 16GB 闪存,另外还有 512 MB RAM,能够播放 HD 影片(支持720p 影片输出)、可执行 3D 游戏,另外还有 AGPS、WiFi、电子罗盘、五百万像素相机(AF)、HSPA 上网、microSD 卡扩充等,电池容量为 1850mAh。
 

标签: 软件 手机 系统

评论(0) 浏览(7549)

分享一个js判断中文字符的正则

2010-2-21 寒川 网页编程

真是书到用时方恨少啊,今天弄一个禁止中文字符注册的代码时被难住了,好在还有网络,百度谷歌病一下就出来了。
<script>
function checkchinese(str)
{
var re = /[^\u4e00-\u9fa5]/;
if(re.test(str)) return false;
return true;
}

if(checkchinese("啊啊啊"))
{
alert("很明显,有中文字符。");
}
else
{
alert("很明显,没有中文字符。");
}
</script>

标签: html 编程 script 随笔

评论(0) 浏览(10288)

春节

2010-2-19 寒川 点滴心情

今年春节过得确实太快了点,转瞬假期就完了,不得不重新回到工作岗位,继续一年忙碌的工作。

标签: 心情 随笔 札记 节日

评论(0) 浏览(6759)

爱因斯坦发明电灯?!

2010-2-10 寒川 互联网事

    现在网络上确实各式各样的人都有了,有囧的,有雷的,三天不上网,感觉落后了三年。这个大妈那个大婶,没事就跑出来吓人,已经够吓了人的了却偏偏要雷人一下,出来衬托一下世界的美丽。。。

标签: 互联网 随笔 札记 笑话

评论(0) 浏览(7171)

mysql命令导入导出.sql文件

2010-2-5 寒川 计算机

phpmyadmin是个不错的东西,能方便地建立、删除数据库数据表,导入导出也十分方便,但是遇到较大的.sql文件的时候就有点了。为此,学习点mysql基本命令还是很有必要的。

    1、mysql导入命令:
    先登录mysql数据库控制台:
    mysql -u root -h 127.0.0.1  -p
    使用数据库:
    mysql>use 数据库;
 然后使用source命令,导入数据库:
 mysql>source c:\test.sql;

       2、mysql导出命令:
    导出整个数据库: mysqldump -u 用户名 -p 数据库名 > 导出的文件名
     .导出一个表: mysqldump -u 用户名 -p 数据库名 表名> 导出的文件名
     导出一个数据库结构:mysqldump -u atyu -p -d --add-drop-table bbs >c:\test.sql

标签: mysql 服务器 数据库 apache

评论(0) 浏览(13897)

Powered by emlog 蜀ICP备12030225号

川公网安备 51042102000001号

sitemap