½«excelÎĵµÖеÄflash±£´æ³öÀ´
¾ßÌå·½·¨ÈçÏ£º
1. µã»÷¹¤¾ß——>ºê——>ºê
2. µ¯³öÒ»¸öºê´´½¨´°Ìå,ÔÚ´°¿ÚÖÐÊäÈëºêÃû£¨ÀýÈ磺ºêÃû£ºExtractFlash£©µã»÷´´½¨°´Å¥¡£
3. µ¯³öÒ»¸ö±à³Ì½çÃ棬ÔÚ½çÃæµÄÖмäÓÐÒ»¸öС´°¿Ú£¬ÔÚ´°¿ÚÖÐÊäÈëÏÂÃæµÄ³ÌÐò¶Î¡£
Sub ExtractFlash()
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", , "È·¶¨Òª·ÖÎöµÄ 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
4. °´F5ÔËÐкꡣ
5. µ¯³öÒ»¸öÑ¡ÔñÎļþµÄ´°¿Ú£¬Ñ¡ÔñÄãÏëÒªÌáÈ¡flashµÄexcelÎļþ£¬µã»÷´ò¿ª°´Å¥¡£
6. Õâʱ»áµ¯³öÒ»¸öÌáʾ´°¿Ú“ÒÔ¡£¡£¡£¡£Ãû×Ö±£´æ”£¬µã»÷È·¶¨¡£
7. ÔÚexcelËùÔÚµÄλÖûá²úÉúÒ»¸öͬÃûµÄflashÎļþ¡£µ½´ËflashÎļþÒѾµ¼³öÁË¡£
Ìرð˵Ã÷£ºÒ»°ãµÄ²Ù×÷ºÜÄѵ¼³ö£¬Ö»ÄܲÉÈ¡·ÖÎöÎļþµÄ°ì·¨µ¼³ö£¬ÒòΪSWFÊÇÓÐÊý¾Ý¸ñʽµÄ£¬Óв»Ò»ÑùµÄPEÍ·£¬ËùÓÐÄܹ»·ÖÎöµ¼È룬˵ԶÁË£¬·´ÕýÄã¿ÉÊÔÊÔÕâÑùµ¼³ö¡£
Áí£ºÄÇÔõÑù½«flash¼ÓÈëexcelÀ
µÚ1²½Ê×ÏÈ¿ªÆôÒ»¸ö¿Õ°×ExcelÎļþ£¬ÔÚÉÏ·½¹¦ÄܱíµÄ¿Õ°×´¦°´Ò»ÏÂÊó±êÓÒ¼ü£¬È»ºóµãÑ¡¡¾¿ØÖƹ¤¾ßÏä¡¿£¬ÆôÓḿØÖƹ¤¾ßÏ䡹¹¤¾ßÁС£
µÚ2²½ ³öÏÖ¡
Ïà¹ØÎĵµ£º
<%@ Page language="c#" Codebehind="WebForm1.aspx.cs" AutoEventWireup="false" Inherits="WebApplication2.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<html>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="ser ......
½«FlashÈںϵ½WinFormÖÐÄܹ»ÔöÇ¿³ÌÐòµÄ¶àýÌåЧ¹ûºÍìÅÀöµÄÍâ¹Û¡£ÏÖÔÚÎÒÃǾÍÀ´¿´¿´ÔÚC#×ÀÃæ³ÌÐòÖÐÈçºÎ²åÈëFlashÊÓƵ£¬¶øÇÒÈ¥µô·³È˵ÄÓÒ¼ü²Ëµ¥¡£
Ê×ÏÈÒª²åÈëFlash¾Í±ØÐëʹÓÃFlash¿Ø¼þ£¬ÔÚ¹¤¾ßÀ¸ÓÒ¼üÑ¡Ôñ“Ñ¡ÔñÏî…”£¬È»ºóÔÚ“COM×é¼þ”Ãæ°åϵã»÷“ä¯ÀÀ”°´Å¥£¬ÔÚ±¾»úµçÄÔC:\WINDOWS\s ......
À´Ô´£ºhttp://club.it.sohu.com/r-it-1350941-0-0-0.html
Ç°ÑÔ
×î½ü¹ØÓÚHTML5 ³³µÃ»ðÈÈ£¬ºÜ¶àÈËÈÏΪHTML5³öÏÖ»áÃëɱFlash£¬ÒÔÖÁÓÚÔÚ¸÷´ówebÇ°¶Ë¿ª·¢ÂÛ̳³³µÃ²»¿É¿ª½»¡£ÂÛ̳ÀïÈýÑÔÁ½Óï˵µÄ²»¹»¾¡ÐË£¬Ö»ºÃÔÚ×Ô¼ºÒ»Ä¶Èý·ÖµØÀﳨ¿ªÁË˵˵¡£Ò²µ±Ò»´ÎÉñ¹÷£¬Õ¹ÍûÒ»ÏÂwebÇ°¶Ë¿ª·¢µÄδÀ´¡£
Ê×ÏÈÕâÀïËù˵µÄHTML5Ò²²»½öÖ¸HTML5 ......
NAND FLASHºÍNOR FLASHÏê½â
NOR FLASHºÍNAND FLASHÊÇÏÖÔÚÊг¡ÉÏÁ½ÖÖÖ÷ÒªµÄ·ÇÒ×ʧÉÁ´æ¼¼Êõ¡£
INTELÓÚ1988ÄêÊ×ÏÈ¿ª·¢³öNOR FLASH¼¼Êõ£¬³¹µ×¸Ä±äÁËÔÏÈÓÉEPROMºÍEEPROMһͳÌìϵľÖÃæ¡£
1989Ä꣬¶«Ö¥¹«Ë¾·¢±íÁËNAND FLASH½á¹¹£¬Ç¿µ÷¸üµÍµÄ³É±¾£¬¸ü¸ßµÄÐÔÄÜ£¬²¢ÇÒ¿ÉÒÔÏó´ÅÅÌÒ»Ñùͨ¹ý½Ó¿ÚÇáËÉÉý¼¶¡£
µ«ÊǾ¹ýÁËÊ®¶àÄêÖ®ºó£¬È ......
´ÓÆ»¹û¡¢ARMµ½OPERA£¬·çÏòËƺõ¿ªÊ¼¸Ä±ä£¬¶ÔFLASHµÄÅê»÷Ô½À´Ô½¶à£¬ËƺõºÞ²»µÃ½«ADOBEŪ³ôµ½³ÉΪ¹ý½ÖÀÏÊó¡£µ±È»£¬ÎÒÄ¿Ç°ÊÇÒ»ÃûFLEX³ÌÐòÔ±£¬Ëù·¢±íµÄÒâ¼ûÄÑÃâ»á´øÓÐÆ«¼û£¬Èç¹ûÊÇÆÚÍû°Ù·Ö°ÙµÄ¹«Õý£¬¾ÍÏñijÈË˵µÄ£ºÄãÒÔΪÎÒÊÇ°üÇàÌì°¡£¡
ÏëÏ뿪·¢Õ߶ÔÓÚMSµÄ×÷Ó㬾ÍÓ¦¸ÃÏëµ½Éè¼Æʦ¶ÔÓÚADOBEµÄ×÷Ó㬼¸ºõÕû¸öͼÐÎÉè¼ÆµÄÊг¡¶¼ÓÐË ......