Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

½«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²½ ³öÏÖ¡


Ïà¹ØÎĵµ£º

½â¾öubuntuä¯ÀÀÆ÷flash·½¿éºÍÂÒÂëÎÊÌâ

    ÎÒÒѾ­½²¹ýÁËÈçºÎÓÃ΢ÈíÑźÚ×ÖÌåÃÀ»¯ubuntuÁË£¬ÏÖÔÚÎÒÃǾÍÓÃ΢ÈíÑźÚ×ÖÌåÀ´½â¾öÕâ¸öÂÒÂëÎÊÌâ¡£
    ´ò¿ªÖնˣº
     cd /etc/fonts/conf.d    //»¹ÊÇ×ÖÌåĿ¼
     sudo cp 49-sansserif.conf 49-sansserif.conf_backup    //±¸·Ý ......

FLASH³¡¾°Çл»´úÂë

FLASHÖг¡¾°Çл»µÄ¼¸¸ö·½·¨ÔÚÖÆ×÷flash¶¯»­µÄʱºò£¬¿ÉÄÜ»áÓÐÓкܵÄmc­
ÓÐʱ»á°ÑËü·Åµ½¼¸¸ö³¡¾°ÖУ¬ÄÇôÔÚ³¡¾°ÖеÄÌøתÈçºÎʵÏÖÄØ£¿­
Çë¿´½Ì³Ì°É¡£­
1.­
·½·¨Ò»£º£¨Ê¹ÓÃtelltarg...­
·½·¨Ò»£º£¨Ê¹ÓÃtelltargetÃüÁ­
°´Å¥ÉϵÄasΪ£º­
on (release) {­
tellTarget ("/") {& ......

Flash ÓëÎïÀí±Ê¼Ç£ºÉÏÅ×Ô˶¯

 Ñ§Ï°Flash ѧһµãÎïÀí¶ÔflashÓкܴó°ïÖú£¬¹ØÓÚflashÓëÔ˶¯Ñ§µÄһЩ֪ʶÔÚmake thing move×÷ÕßÀïÃæÒѾ­ºÜÏêϸÌṩÁË¡£ÎïÀíÀ´½²£¬¸öÈËѧµÃ±È½Ï²î£¬ÖÐѧʱ´ú»ù±¾ÉÏÊÇÎïÀí°×³Õ£¬ºÁÎÞÎïÀíµÄ˼ά¡£²»µÃ²»ÖØÐÂÈ¥ÍøÕ¾ËÑË÷һЩ¸ÅÄîȥѧ»ØÕâÖÖÔ˶¯Ñ§¡£¶ÔÓÚÎïÀíµÄ½éÉÜ£¬²»ÄÜÈ¥Å×Êé°ü£¬Ö»ÄܼǼһϱʼÇÓÃ×÷ÈÕºóʹÓá£
  ÉÏ ......

ÖÇÄÜÕÕÃ÷¿ØÖÆϵͳµÄ²âÊÔ Ê¹ÓÃFLASH´úÌæÕæʵµÄµÆ¾ß

ÖÇÄÜÕÕÃ÷¿ØÖÆϵͳÔÚ²âÊÔʱ£¬ÐèÒªÁ¬½ÓºÜ¶à¸ö¾ßÌåµÄµÆ¾ß£¬·Ç³£Âé·³£¬Áé»îÐÔ²»×ã¡£
ÎÒÏëÔÚµçÄÔÉÏÔËÐÐÒ»¸öFLASH£¬À´Ä£ÄâµÆ¹âµÄ¿ª¹ØºÍµ÷¹â¡¢´°Á±µÄ¿ØÖƵȲÙ×÷¡£µ±ÕæʵµÄCAN×ÜÏßÉϵÄÃæ°å/Ä£¿é±»²âÊÔÈËÔ±»òÌåÑéÕß²Ù¿Øʱ£¬Í¨¹ýCAN×ÜÏߺÍCAN/IPת»»Æ÷£¬ÏòÁ¬½ÓÔÚIPÍøÉϵĵçÄÔ·¢³öÐÅÏ¢£¬Õâ¸öÐÅÏ¢½«Çý¶¯FLASH²¢²úÉú±ä»¯¡£
È磺ÏÂÍ¼ÎªÒ ......

Scribd¼ÄÏ£ÍûÓÚHTML5£¬·ÅÆúFlash£¬

    ´¦¾³¿°ÓǵÄAdobe Flash½«ÃæÁÙÁíÒ»´Î´ò»÷£¬ÔÚÏßÎĵµ×îÖÕÒ²¿ªÊ¼±íÃ÷Á¢³¡¡£Ä¿Ç°ÍøÉϴ󲿷ÖÎĵµ£¨PDF¡¢WordÎĵµ¡¢»ÃµÆƬ£©Ö»ÄÜÔÚFlash²¥·ÅÆ÷ÄÚ²¿²¥·Å£¬ÎÞ·¨ÏÔ Ê¾ÎªÍêÕûµÄÍøÒ³¡£Ã÷ÌìÔÚÏßÎĵµ·ÖÏíÍøÕ¾ScribdÉϵÄÊý°ÙÍò·ÝÎĵµ²»ÔÙʹ ÓÃFlash²¥·Å£¬¶øÊǽ«×ª»¯Îª±¾µØHTML5ÍøÒ³¡£ÕâЩÎĵµ²»½ö¿ÉÒÔÔÚiPadÉÏÍêÃÀÏÔʾ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ