Beiträge von Jam00

Jam00

Oh stimmt, hab nur eine Zahl vergessen und deswegen ging es nicht
Naja jetzt ist behoben!

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Umbenennen.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiListView.au3>
#include <Array.au3>
$INI = @ScriptDir & "\Konfig.ini"
#region ### START Koda GUI section ### Form=
$FORM1 = GUICreate("Datei-Umbenenner", 515, 576, 282, 277, 0x00040000)
$LISTVIEW1 = GUICtrlCreateListView("Dateiname|Neuer Name|Pfad", 2, 2, 510, 326)
GUICtrlSendMsg(-1, 4126, 0, 150)
GUICtrlSendMsg(-1, 4126, 1, 150)
GUICtrlSendMsg(-1, 4126, 2, 200)
$INPUT1 = GUICtrlCreateInput(IniRead ($INI,"FileOpen","IN1",""), 2, 358, 509, 21)
$BUTTON1 = GUICtrlCreateButton("Hinzufügen", 436, 330, 75, 25, 0)
$BUTTON2 = GUICtrlCreateButton("Entfernen", 361, 330, 75, 25, 0)
$LABEL1 = GUICtrlCreateLabel("Zu ersetzender Text:", 2, 340, 102, 17)
$BUTTON3 = GUICtrlCreateButton("Ersetzen", 436, 422, 75, 25, 0)
$INPUT2 = GUICtrlCreateInput(IniRead ($INI,"FileOpen","IN2",""), 3, 400, 509, 21)
$LABEL2 = GUICtrlCreateLabel("Ersetzen mit:", 3, 382, 64, 17)
$BUTTON4 = GUICtrlCreateButton("Liste Leeren", 286, 330, 75, 25, 0)
$BUTTON5 = GUICtrlCreateButton("Beispiel anzeigen", 336, 422, 100, 25, 0)
$Check = GUICtrlCreateRadio ("Dateien",20,425)
GUICtrlSetState (-1,1)
GUICtrlCreateRadio ("Ordner",80,425)
$RADIO = GUICtrlCreateCheckbox("Abschneiden", 10, 470)
$LABEL3 = GUICtrlCreateLabel("Wieviel Stellen abschneiden:", 2, 500, 150, 17)
$INPUT3 = GUICtrlCreateInput("", 2, 520, 509, 21,0x2000)
GUICtrlCreateUpdown (-1)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=

[/autoit] [autoit][/autoit] [autoit]

Global $ER
GUIRegisterMsg(0x0024, "MY_WM_GETMINMAXINFO")
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case -3
Exit
Case $BUTTON4
_GUICTRLLISTVIEW_DELETEALLITEMS($LISTVIEW1)
Case $BUTTON2
_GUICTRLLISTVIEW_DELETEITEMSSELECTED($LISTVIEW1)
Case $BUTTON1
_HINZUFUEGEN()
Case $BUTTON5
_BEISPIEL()
Case $BUTTON3
_UMBENENNEN()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _HINZUFUEGEN()
If GUICtrlRead ($Check) = 1 Then
$FILE = FileOpenDialog("Dateiauswahl", IniRead($INI, "FileOpen", "Pfad", ""), "Alle (*.*)", 4)
If @error Then Return
$SFILE = StringSplit($FILE, "|")
If $SFILE[0] > 1 Then
IniWrite($INI, "FileOpen", "Pfad", $SFILE[1])
If $SFILE[0] > 0 Then
For $1 = 2 To $SFILE[0]
GUICtrlCreateListViewItem($SFILE[$1] & "||" & $SFILE[1], $LISTVIEW1)
Next
EndIf
Else
$SFILE = StringSplit($FILE, "\")
$Pfad1 = StringLeft ($FILE,StringLen ($FILE) - StringLen ($SFILE[$SFILE[0]]))
GUICtrlCreateListViewItem($SFILE[$SFILE[0]] & "||" & $Pfad1, $LISTVIEW1)
IniWrite($INI, "FileOpen", "Pfad", $Pfad1)
EndIf
Else
$Ordner = FileSelectFolder ("Ordnerauswahl",Default,0,IniRead ($INI,"FileOpen","Pfad",@DesktopDir))
If @error Then Return
$Filter = InputBox ("Dateiendung","Gib die Dateiendung an" & @CRLF & "Beispiel: *.mp3",IniRead ($INI,"FileOpen","Filter","*.mp3"))
If @error Then Return
IniWrite ($INI,"FileOpen","Filter",$Filter)
$First = FileFindFirstFile ($Ordner & "\" & $Filter)
While 1
$FILE = FileFindNextFile($First)
If @error Then ExitLoop
$SFILE = StringSplit ($FILE,"\")
$Pfad = StringLeft ($FILE,StringLen ($FILE) - StringLen ($SFILE[$SFILE[0]]) -1)
GUICtrlCreateListViewItem($SFILE[$SFILE[0]] & "||" & $Pfad, $LISTVIEW1)
Wend
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _BEISPIEL()
$Read = GUICtrlRead ($RADIO)
$TEXT = GUICtrlRead($INPUT1)
$ER = GUICtrlRead($INPUT2)
IniWrite ($INI,"FileOpen","IN1",$TEXT)
IniWrite ($INI,"FileOpen","IN2",$ER)
For $1 = 0 To _GUICTRLLISTVIEW_GETITEMCOUNT($LISTVIEW1)
_GUICTRLLISTVIEW_SETITEMTEXT($LISTVIEW1, $1, StringReplace(_GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 0), $TEXT, $ER), 1)
If $Read = 1 Then
$LES = _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1)
_GUICTRLLISTVIEW_SETITEMTEXT( $LISTVIEW1, $1, StringRight($LES, StringLen ($LES) - GUICtrlRead ($INPUT3)),1)
EndIf
Next
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _UMBENENNEN()
_BEISPIEL()
For $1 = 0 To _GUICTRLLISTVIEW_GETITEMCOUNT($LISTVIEW1)
FileMove(_GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 2) & "\" & _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 0), _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 2) & "\" & _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 1))
Next
_GUICTRLLISTVIEW_DELETEALLITEMS($LISTVIEW1)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func MY_WM_GETMINMAXINFO($HWND, $MSG, $WPARAM, $LPARAM)
If $HWND = $FORM1 Then
Local $MINMAXINFO = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $LPARAM)
DllStructSetData($MINMAXINFO, 7, 515)
DllStructSetData($MINMAXINFO, 8, 476)
EndIf
EndFunc

[/autoit]

Jam00

Ich habe noch ein Fehler in der Funkktion hinzufügen gefunden, den habe ich noch behoben und deine Fehler habe ich auch behoben!

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Umbenennen.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiListView.au3>
#include <Array.au3>
$INI = @ScriptDir & "\Konfig.ini"
#region ### START Koda GUI section ### Form=
$FORM1 = GUICreate("Datei-Umbenenner", 515, 576, 282, 277, 0x00040000)
$LISTVIEW1 = GUICtrlCreateListView("Dateiname|Neuer Name|Pfad", 2, 2, 510, 326)
GUICtrlSendMsg(-1, 4126, 0, 150)
GUICtrlSendMsg(-1, 4126, 1, 150)
GUICtrlSendMsg(-1, 4126, 2, 200)
$INPUT1 = GUICtrlCreateInput(IniRead ($INI,"FileOpen","IN1",""), 2, 358, 509, 21)
$BUTTON1 = GUICtrlCreateButton("Hinzufügen", 436, 330, 75, 25, 0)
$BUTTON2 = GUICtrlCreateButton("Entfernen", 361, 330, 75, 25, 0)
$LABEL1 = GUICtrlCreateLabel("Zu ersetzender Text:", 2, 340, 102, 17)
$BUTTON3 = GUICtrlCreateButton("Ersetzen", 436, 422, 75, 25, 0)
$INPUT2 = GUICtrlCreateInput(IniRead ($INI,"FileOpen","IN2",""), 3, 400, 509, 21)
$LABEL2 = GUICtrlCreateLabel("Ersetzen mit:", 3, 382, 64, 17)
$BUTTON4 = GUICtrlCreateButton("Liste Leeren", 286, 330, 75, 25, 0)
$BUTTON5 = GUICtrlCreateButton("Beispiel anzeigen", 336, 422, 100, 25, 0)
$Check = GUICtrlCreateRadio ("Dateien",20,425)
GUICtrlSetState (-1,1)
GUICtrlCreateRadio ("Ordner",80,425)
$RADIO = GUICtrlCreateCheckbox("Abschneiden", 10, 470)
$LABEL3 = GUICtrlCreateLabel("Wieviel Stellen abschneiden:", 2, 500, 150, 17)
$INPUT3 = GUICtrlCreateInput("", 2, 520, 509, 21,0x2000)
GUICtrlCreateUpdown (-1)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=

[/autoit] [autoit][/autoit] [autoit]

Global $ER
GUIRegisterMsg(0x0024, "MY_WM_GETMINMAXINFO")
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case -3
Exit
Case $BUTTON4
_GUICTRLLISTVIEW_DELETEALLITEMS($LISTVIEW1)
Case $BUTTON2
_GUICTRLLISTVIEW_DELETEITEMSSELECTED($LISTVIEW1)
Case $BUTTON1
_HINZUFUEGEN()
Case $BUTTON5
_BEISPIEL()
Case $BUTTON3
_UMBENENNEN()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _HINZUFUEGEN()
If GUICtrlRead ($Check) = 1 Then
$FILE = FileOpenDialog("Dateiauswahl", IniRead($INI, "FileOpen", "Pfad", ""), "Alle (*.*)", 4)
If @error Then Return
$SFILE = StringSplit($FILE, "|")
If $SFILE[0] > 1 Then
IniWrite($INI, "FileOpen", "Pfad", $SFILE[1])
If $SFILE[0] > 0 Then
For $1 = 2 To $SFILE[0]
GUICtrlCreateListViewItem($SFILE[$1] & "||" & $SFILE[1], $LISTVIEW1)
Next
EndIf
Else
$SFILE = StringSplit($FILE, "\")
$Pfad1 = StringLeft ($FILE,StringLen ($FILE) - StringLen ($SFILE[$SFILE[0]]))
GUICtrlCreateListViewItem($SFILE[$SFILE[0]] & "||" & $Pfad1, $LISTVIEW1)
IniWrite($INI, "FileOpen", "Pfad", $Pfad1)
EndIf
Else
$Ordner = FileSelectFolder ("Ordnerauswahl",Default,0,IniRead ($INI,"FileOpen","Pfad",@DesktopDir))
If @error Then Return
$Filter = InputBox ("Dateiendung","Gib die Dateiendung an" & @CRLF & "Beispiel: *.mp3",IniRead ($INI,"FileOpen","Filter","*.mp3"))
If @error Then Return
IniWrite ($INI,"FileOpen","Filter",$Filter)
$First = FileFindFirstFile ($Ordner & "\" & $Filter)
While 1
$FILE = FileFindNextFile($First)
If @error Then ExitLoop
$SFILE = StringSplit ($FILE,"\")
$Pfad = StringLeft ($FILE,StringLen ($FILE) - StringLen ($SFILE[$SFILE[0]]) -1)
GUICtrlCreateListViewItem($SFILE[$SFILE[0]] & "||" & $Pfad, $LISTVIEW1)
Wend
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _BEISPIEL()
$Read = GUICtrlRead ($RADIO)
$TEXT = GUICtrlRead($INPUT1)
$ER = GUICtrlRead($INPUT2)
IniWrite ($INI,"FileOpen","IN1",$TEXT)
IniWrite ($INI,"FileOpen","IN2",$ER)
For $1 = 0 To _GUICTRLLISTVIEW_GETITEMCOUNT($LISTVIEW1)
_GUICTRLLISTVIEW_SETITEMTEXT($LISTVIEW1, $1, StringReplace(_GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 0), $TEXT, $ER), 1)
If $Read = 1 Then
$LES = _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1)
_GUICTRLLISTVIEW_SETITEMTEXT( $LISTVIEW1, $1, StringRight($LES, StringLen ($LES) - GUICtrlRead ($INPUT3)))
EndIf
Next
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _UMBENENNEN()
_BEISPIEL()
For $1 = 0 To _GUICTRLLISTVIEW_GETITEMCOUNT($LISTVIEW1)
FileMove(_GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 2) & "\" & _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 0), _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 2) & "\" & _GUICTRLLISTVIEW_GETITEMTEXT($LISTVIEW1, $1, 1))
Next
_GUICTRLLISTVIEW_DELETEALLITEMS($LISTVIEW1)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func MY_WM_GETMINMAXINFO($HWND, $MSG, $WPARAM, $LPARAM)
If $HWND = $FORM1 Then
Local $MINMAXINFO = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $LPARAM)
DllStructSetData($MINMAXINFO, 7, 515)
DllStructSetData($MINMAXINFO, 8, 476)
EndIf
EndFunc

[/autoit]

Jam00

Spoiler anzeigen

[autoit]

GUICtrlSetBkColor
GUICtrlSetColor
GUICtrlSetFont

[/autoit]

Jam00

Ich benutze Flock seit ich mit FF Probleme hatte. Zwischendurch auch mal Opera

Jam00

@Padmak
Stimmt, hab garnicht dran gedacht^^

Jam00

Bei mir Klappt es auch einbandfrei, was hast du denn für ein Betriebsystem? Also ich hab WIN-XP mit SP3

Jam00

Meinst du sowas?

Spoiler anzeigen

[autoit]

$Text = InputBox ("Text","Gib einen Beliebigen Text ein")
$Abschneiden = InputBox ("Abschnitt","Wie viele Stellen sollen Abgeschnitten werden?")
$Textschnitt = StringRight ($Text,StringLen ($Text) - $Abschneiden)
MsgBox (0,"",$Textschnitt)

[/autoit]

Jam00

Les doch mal die Hilfe!
Da stehen alle parameter zu ProgressOn ( "title", "maintext" [, "subtext" [, x pos [, y pos [, opt]]]] ) drin unter anderem wo du x und y angeben musst!

EDIT:
Naja hier mal ein Beispiel:

Spoiler anzeigen

[autoit]

ProgressOn ( "title", "maintext", "subtext",0, 0 )

[/autoit]

Jam00

Mach doch mal mach ich nicht
Eigentlich ist die Hilfe sehr gut!

Mal erklärt:
PixelGetColor gibt die Farbe des Pixels zurück die du angegeben hast. Und zwar im Dezimalsystem! Um den Wert in das Hexadezimalsystem unzuwandeln benutzt mal Hex. Was du geschrieben hast (0xFFD44C) ist Hex.

Hier mal ein Ganz simples Beispiel:

Spoiler anzeigen

[autoit]

$Pixel = PixelGetColor (10,10) ;Gibt die Pixelfarbe vom Pixel 10*10 in Dezimal an
$Hex = Hex ($Pixel) ;In dasHexadezimalsystem unwandeln
MsgBox (0,"",$Hex)

[/autoit]

Jam00

Zitat von Jam00

EDIT: Benutz mal die Suchfunktion oder Google!

Jam00

hast du die ftp.au3 runtergeladen und in den Inculdeordner kopiert? Der ist wenn du AutoIt standartmäsig instaliert hast unter "C:\Programme\AutoIt3\Include" wenn der Fehler immernoch kommt Poste doch mal die Fehlermeldung!

EDIT: Benutz mal die Suchfunktion oder Google!

Jam00

Ich hab dich schon vertsanden, hast du dir die sachen mal in der Hilfe angeguckt? Damit ist doch alles machbar! Ein bissen eigeninizative bitte

Jam00

Es geht aber nicht so einfach, für das was du willst musst du schon ein paar mehr zeilen schreiben und die ftp.au3 benutzen!

Jam00

Bitte poste deinen Fragen nicht hier, da es das Unterforum für fertige Scripte ist und post auch nicht dopllelt!

Jam00

Guck dir mal PixelGetColor und Send in der Hilfe an

Jam00

So was ähnliches hab ich schon mal gemacht, hier.

Jam00

Schade, vieleicht frag ich mal in englischen forum

Jam00

Warum kann man eig nur einen karteireiter in einer gui machen?

Jam00

Ich find nur diesen Blöden Workplace, ich wollte aber einfach nur den Chat haben

Jam00

Ist das unlösbar?

Beiträge von Jam00

Umbenennen von Dateien

Umbenennen von Dateien

Zeilenumbrüche im Group-Befehl

Welchen Internet Browser nutzt ihr - Umfrage ?

Pixelsearch problem

Problem mit Objekt

Umbenennen von Dateien

Wie stelle ich das Fenster von Progresson nach Links oben in die Ecke des Monitors ?

Autoit hilfe

Downloader für Homeserver (NAS System)

Downloader für Homeserver (NAS System)

Autoit hilfe

Downloader für Homeserver (NAS System)

Pixelsearch problem

Autoit hilfe

Umbenennen von Dateien

KMZ-Dateien Anzeigen

Tab in Tab

AutChat - Chat für Autoit'ler

KMZ-Dateien Anzeigen