[Excel] Čupanje prikačenog flash fajla

[Excel] "Čupanje" prikačenog flash fajla 11.04.2007. u 16:03 · pre 238 meseci #1

Dobio sam jednu od icq swf čestitki prikačenu u excell.

Q: Kako da je ekstraktujem kao samostalni swf fajl?

Probao sam da snimim dokument kao htm i html, računajući da će se flash snimiti sa fajlovima te "strane".
Nije uspelo.
U fajlovima tako snimljenim, stoje samo jedan xml i jedan emz fajl. Da nije taj emz u vezi sa swf-om?

Dobio sam podatak sa drugog foruma da je taj emz "kompresovani emf fajl". Uspeo sam da ga otpakujem, ali dobijam neki fajl koji nije flash... koji programi za pregled slika prepoznaju kao sliku.

Potpis

Da ne ponavljam:
The results do not support a causal relation between environmental tobacco smoke and tobacco related mortality, although they do not rule out a small effect. The association between exposure to environmental tobacco smoke and coronary heart disease and lung cancer may be considerably weaker than generally believed.

Re: [Excel] "Čupanje" prikačenog flash fajla 11.04.2007. u 23:43 · pre 238 meseci #2

Sa jednim velikim izvinjenjem ako gresim i ako nisam razumeo tvoje pitanje,
po mom misljenju nemoguceje dase izvadi animacija Flas iz Excel fajla iz razloga zato stosi dobijo Excel fajl a ne animaciju Flas.

Pogledaj i sam ovaj princip :

Otvori excel fajl koji sadrzi animaciju flas
Click na bouton (mode creacije) trougao sa olovkom na slici
videces da u tom trenutku tvoja animacije ne funkcionise
zatim postavi misa na animaciju i izvrsi desni click, izaberi opciju POPRIETE
u prozoru pogledaj liniju MOVIE, videces da adresa animacije nema nikakve veze sa tvoim folderima
drugacije receno nenalazise na tvom hard disku.

Tobi bilo to mozda postoi neka druga mogucnost ali nazalost meni nije poznata

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Re: [Excel] "Čupanje" prikačenog flash fajla 12.04.2007. u 10:16 · pre 238 meseci #3

Ne znam kako je flash ubačen u Excel. Da li možeš iz kontekstnog menija (desni klik na objekat) da aktiviraš Package Object opciju? Ako možeš izaberi Edit package opciju pa iz Object Packager prozora izaberi File -> Save Content i zadaj ime sa odgovarajućom ekstenzijom pod kojim želiš da snimiš.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] "Čupanje" prikačenog flash fajla 12.04.2007. u 11:25 · pre 238 meseci #4

Da "osvetlim" pitanje.

U pitanju je jedna od "flash čestitki" sa ICQ sajta.
Nekako je insertovana u xls.

Kad probam desni klik na tu flash "sličicu" dobijam meni kao kad se klikne desnim na bilo koji flash.
Screenshot: http://img164.imagevenue.com/i...?image=68991_exc_122_503lo.jpg

Sticajem okolnosti baš ove sličice više nema na njihovom sajtu, pa me to i podstaklo kako da je ekstraktujem.

P.S. Imam i jedan word dokument u koji je insertovan wav, koji isto ne znam kako da izvadim.

P.P.S. Pošto sam trenutno na poslu, a odatle nemam pristup rapidu, okačio sam ga ovde:
http://up-file.com/download/5cfca476379/CARDS1.XLS.html

Ako neko može da pomogne...

Potpis

Da ne ponavljam:
The results do not support a causal relation between environmental tobacco smoke and tobacco related mortality, although they do not rule out a small effect. The association between exposure to environmental tobacco smoke and coronary heart disease and lung cancer may be considerably weaker than generally believed.

Re: [Excel] "Čupanje" prikačenog flash fajla 12.04.2007. u 23:14 · pre 238 meseci #5

Pozdrav
Ili se ja lose sluzim Srpskim jezikom ( nije iskljuceno ) ili ti nisi uzeo malo vremena da procitas prvi odgovor lol.
Kao i stosam pretpostavljao radise o flash animaciji ubacenoj u radnoj svesci koju Excel moze da zadrzi bez potrebe dase prikaci originalni Flash fail.
Nezelim da budem idiot koi tvrdi 100% daje nemoguce izvaditi Flash, me zatvoju nesrecu mislim daje to neizvodljivo.
Neobecavam ti nista me pokusacu da pronadjem vise informacija akotije stvarno stalo do toga.

Za razliku od Flasha u principu WAV Fajl treba biti prikacen dokumentu, obicno je maskiran (nevidljiv) i nalazise u istom Folderu kao i tvoj doc. word

PS: evoti jedno objasnjenje u prikacenom fajlu

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

ShockwaveFlash.jpg136.98k

Re: [Excel] "Čupanje" prikačenog flash fajla 13.04.2007. u 10:18 · pre 238 meseci #6

Gix
Razumeo sam ja tvoj odgovor :lol:

Čisto sam pretpostavljo da se može ekstraktovati, kao npr. nakačena jpg slika ili slično.
Ne može - ne može.
Šta da se radi.

Potpis

Da ne ponavljam:
The results do not support a causal relation between environmental tobacco smoke and tobacco related mortality, although they do not rule out a small effect. The association between exposure to environmental tobacco smoke and coronary heart disease and lung cancer may be considerably weaker than generally believed.

Re: [Excel] "Čupanje" prikačenog flash fajla 13.04.2007. u 18:36 · pre 238 meseci #7

Re
Neobecavam ti nista, pokusacu za vreme vikenda da potrazim neku soluciju
mozda je moguce nesto napraviti sa Flashom8_Pro

PS: Izvini zbog predhodnog ostrog odgovora imaosam utisak da nisi ni procitao poruku.

pozdrav

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Re: [Excel] "Čupanje" prikačenog flash fajla 12.10.2007. u 11:34 · pre 232 meseca #8

Tema je stara, ali nasao sam se u slicnom problemu i malo sam prosao mrezom i nasao rjesenje, koje sam primjenio i koje radi. To je inace iskopano sa nekog kineskog forum (!). Mozda nekom pomogne kao sto je meni. :)
Pozdrav!

VBA:
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", , "Select Excel / Word File")
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 "SaveAs " & tmpFileName
End Sub

Forum kao aplikacija na telefonu

Srodne teme