| DateiTYPE von ??? |
| Hai! Oft ist es so, das ich die Endung einer Datei ganz einfach umändern will, dies gelingt mit aber oft nicht, auch nicht mit dem editor. um das zu umgehen hab ich grad mal son tool dazu geschrieben! Ob es jetzt wriklich die beste möglichkeit ist weiß ich nicht :roll: ! [code:1:24d893e82e] Graphics 640,120,0,2 SetBuffer BackBuffer() AppTitle "DateiKonverter - (c) INpac","Wollen Sie wirklick DateiKonverter beeden?" ClsColor 236,233,216 Color 236,233,216 Rect 0,0,640,480 Flip Color 0,0,0 Global font=LoadFont("Tahoma",14,0,0,0) Global orginal$,neu$ Global filename$,org_name$,org_end$ Global line_alt$,neu_end$ SetFont font Locate 20,20:filename$=Input("Den Datentyp welcher Datei möchten sie umbennen [Name.endung] ? ") orginal$=ReadFile(filename$) If orginal=0 Then RuntimeError "Die Datei, die Sie angegeben haben, existiert nicht, versuchen Sie es bitte noch einmal!" EndIf Locate 20,40:neu_end=Input("Welche Endung soll die Datei nun haben [endung] ? ") org_point=Instr(filename$,".") org_end=Mid(filename$,org_point+1) org_name=Left$ (filename$,org_point-1) Text 20,60,"FileName:" :Text 200,60,org_name Text 20,75,"Endung der Datei:(.)" :Text 200,75,org_end Color 255,0,0 Text 20,90,"Drücken Sie bitte eine Taste, um die Konvertierung zu starten! " Color 0,0,0 Flip WaitKey() neu$=WriteFile(org_name+"."+neu_end) ;______________________________________Konverertierung... Locate 20,160 Flip Repeat Cls line_alt=ReadLine$(orginal$) WriteLine neu$,line_alt Color 0,0,0 Text 20,60, "Konvertiere: "+line_alt+" ...",0,1 Flip Until Eof(orginal) ;________________________________________________Ende Text 20,75,"Erfolgreich konvertiert!" Flip Delay 500 CloseFile orginal$ CloseFile neu$ RuntimeError "Datei erfolgreich konvertiert." [/code:1:24d893e82e] |