Hi,
diesmal habe ich mich um ein eigentlich altes Problem gekümmert.
Aus der Zeit, in der ich noch AOL-Mitglied war, sind noch etliche
Downloads vorhanden. Da sind natürlich auch Bilder dabei..
Diese kann IrfanView leider nicht anzeigen, wenn sie im .Art-Format
sind. Sie sind's aber(teilweise..)
Irfan rät: "Try with Internet Explorer"
ytwinky rät: "Try with Art2Bmp.au3!"
Zwar sollte das Skript auch mehrere Dateien umformen, das wird
aber sehr schnell nervig. Bin mal gespannt auf Verbesserungs-
vorschläge, so denn jemand welche haben sollte
Natürlich geht das Ganze auch manuell, aber wofür habe ich eine
Skripting-Sprache, die für Automatisierungen perfekt ist?
In der Zip-Datei ist:
-Eine Art-Datei Test.Art 1696 Byte
Gruß
ytwinky
Spoiler anzeigen
C
;<AutoItScript>
#NoTrayIcon ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
Opt("MustDeclareVars", 1) ;0=ohne, 1=erfordert Variablen-Deklaration
#include <Constants.au3>
#include <File.au3>
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Autor="Art2Bmp.au3 ©2006 by ytwinky, MD"; |
;| EMail: PIII1kSystem-AutoIt3Forum@yahoo.de |
;| AutoIt3-Version: 3.1.1.121(beta) |
;| Editor: SciTE 1.68, feste Schriftart |
;| Zweck : Schablone für den Anfang, nach Bedarf anpassen |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Global $ArgC=$CmdLine[0], $Erw=".Bmp"
Dim $i, $j, $s, $Bild, $ArgV[$ArgC+2]
If $ArgC=0 Then ;funzt
$s="Das Script ist so geschrieben, das eine Bild-Datei per Drag&Drop übergeben werden kann.." &@CrLf
$s&="Natürlich lassen sich auch Parameter beim Aufruf übergeben" &@CrLf
$s&="(Alle im IE darstellbaren Bildformate AUCH *.ART werden umgewandelt und Irfan kann das nicht!!)" &@CrLf
$s&="Ist ja auch egal, jetzt kann manuell gesucht/eingetragen werden, oder auch nicht ;-))"
If MsgBox(4100, "Ooops..", $s, 7)=$IDNO Then Exit
$ArgV[1]=FileOpenDialog("Datei umwandeln", "DeskTopf", "Alle(*.*)", 1+2+4, "Test.art")
If $ArgV[1]="" Then Exit
$ArgC=1
Else
For $i=1 To $ArgC
$ArgV[$i]=$CmdLine[$i]
Next
EndIf
;jetzt umwandeln..
For $i=1 To $ArgC
Art2Bmp($ArgV[$i])
Next
;Unterprogramme
Func Art2Bmp($Bild)
Dim $Neu, $arrNeu, $Stored, $dd, $dp, $dn, $de
If FileExists($Bild) Then
Run("explorer.exe " &$Bild)
WinWaitActive($Bild)
$arrNeu=_PathSplit($Bild, $dd, $dp, $dn, $de)
$Neu=EnvGet("Tmp") &"\" &$dn &$de &$Erw
Send("!DU" &$Neu &"{TAB}b!SJ!{F4}") ;Hier anpassen für andere Sprachen
RunWait("explorer.exe " &$Neu) ;Hier anpassen für andere Bearbeitungsprogramme
$dp=0
Do
$Stored=MsgBox(4099, "Datei löschen" , "Soll die Datei" &@Lf &$Neu &@Lf &"gelöscht werden?")
Switch $Stored
Case $IDYES
FileDelete($Neu)
$Stored=True
Case $IDNO
$dp+=1
$Stored=$dp=3
Case $IDCANCEL
$Stored=True
Case Else
MsgBox(4096, "Oh, Saruman..", "Wie konnte das denn passieren???")
$Stored=False
EndSwitch
Until $Stored
Else
MsgBox(4096, "Ooops..", $Bild &" nicht gefunden..", 3)
EndIf
EndFunc
;</AutoItScript>
Alles anzeigen