@FunH@cker
Also das ist ja schon mehr als nur bequem. Kennst Du Copy & Paste? Das solltest Du schon selber hin bekommen.
Na klar helfe ich beim verbessern, aber derzeitig ist eine verbesserte Version noch gar nicht hier gepostet, sondern nur die o. g. Versionen.
@ Alina : willst du mir jetzt helfen ?
Ich will dir nichts aufdrängen xD
Ist nur eine Frage
Zur Zeit habe ich derzeitig zu viel um meine beiden kleinen Ohren. Aber wenn Du hier postest, dann helfe ich na klar weiter. Ehrensache 
Hast Du mal versucht den Debugger einzusetzen?
Aber wie bereits auch geschrieben, ist hier eine Einsicht in das Script schon notwendig.
@nof@ker2
Meine Version arbeitet soweit ich sehen kann zwar einwandfrei, aber dennoch sicherlich für einige User hier "Verbesserungswürdig".
Stilgar
Wie schaut es mit meiner Version aus? Kann ich danch Deiner Meinung da weiter arbeiten oder gibt das auch "Chaos" in einigen Scripten?
Hallo nof@ker2
Ja, das Problem das die Includes überall sein könnten habe ich so gelöst:
#include <file.au3>
$file = FileOpen("muster.au3", 0)
$new = "new_new.au3"
If FileExists($new) Then
FileDelete($new)
EndIf
FileOpen($new, 0)
$aus1file = FileOpen("muster_neu1.au3", 1)
$aus2file = FileOpen("muster_neu2.au3", 1)
$zeilen = _FileCountLines("muster.au3")
[/autoit] [autoit][/autoit] [autoit]If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
$i = 0
Do
if StringInStr((FileReadLine($file,$i)), "#include <") > 0 OR StringInStr((FileReadLine($file,$i)), "#include<") > 0 Then
$zwischen = FileReadLine($file,$i)
FileWriteLine($aus1file, $zwischen & @CRLF)
ElseIf StringInStr(FileReadLine($file,$i), "#include <") = 0 OR StringInStr(FileReadLine($file,$i), "#include<") = 0 Then
$zwischen = FileReadLine($file,$i)
FileWriteLine($aus2file, $zwischen & @CRLF)
EndIf
$i = $i + 1
Until $i = $zeilen +5
FileClose($file)
FileClose($aus1file)
FileClose($aus2file)
Sleep(5000)
FileWrite($new, FileRead("muster_neu1.au3"))
FileWrite($new, FileRead("muster_neu2.au3"))
Sleep(1000)
FileClose($new)
FileDelete("muster_neu1.au3")
FileDelete("muster_neu2.au3")
Exit
Bevor:
#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 135, 61, 193, 125)
#include <EditConstants.au3>
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 8, 32, 123, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#include <GUIConstantsEx.au3>
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$inpu1 = GUICtrlRead ($input1)
_FileWriteLog(@ScriptDir & "\avc.log", "Internet Seite : "&$inpu1)
MsgBox (0,"HALLO","Hallo")
EndSwitch
WEnd
#include <WindowsConstants.au3>
#include <file.au3>
After:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 135, 61, 193, 125)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 8, 32, 123, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$inpu1 = GUICtrlRead ($input1)
_FileWriteLog(@ScriptDir & "\avc.log", "Internet Seite : "&$inpu1)
MsgBox (0,"HALLO","Hallo")
EndSwitch
WEnd
Mann könnte das Script auch dazu benutzen, am Anfang zum Beispiel noch etwas vor die Includes zu schreiben (Informationen / Gebrauchsanweiseúngen).
Dazu vor Zeile 41 noch eine weitere Datei (die na klar richtig aufgebaut sein muß) in die $new schreiben lassen.
Wie bekomme ich die Anzahl an Zeilen in einer Datei heraus?
Als erstes empfehle ich die Funktion alle zu setzen. Du rufst nämlich Funktionen auf, die noch gar nicht bestehen. So kann man das Script schon mal nicht testen um dann wiederum das o. g. Problem anzugehen.
Den Fehler schiebe ich mal in die Schublade: "Jede/r fängt mal klein an". Ich u. a. ganz klein, mit damals gar keine Ahnung außer Batching. Also nicht persönlich nehmen, sondern als guten Tip / Rat.
Hallo Oscar.
Wenn die Datei ein Bindestrich / Minuszeichen hat, dann wird die Datei nicht agespielt. Aber sehr schön sonst.
@ GE IXI TIM
Wie wäre es, wenn Du das Script mal postest, denn dann kann man auch sagen wie Du den Pfad heraus bekommst.
Also ich habe eine CD an der ich es erkläre.
CD-1 (1.000 Songs)
Textdatei (__***all.txt):
01.01.2000 00:00 2.000.062 0001 - Yesterday.mp3
01.01.2000 00:00 2.111.657 0002 - Rock Around The Clock.mp3
01.01.2000 00:00 6.854.658 0003 - Hey Jude.mp3
01.01.2000 00:00 4.673.747 0004 - Bridge Over Troubled Water.mp3
01.01.2000 00:00 4.548.359 0005 - My Heart Will Go On.mp3
01.01.2000 00:00 4.377.832 0006 - I Will Always Love You.mp3
01.01.2000 00:00 7.748.673 0007 - Stairway To Heaven.mp3
01.01.2000 00:00 2.951.755 0008 - Imagine.mp3
01.01.2000 00:00 5.744.141 0009 - Bohemian Rhapsody.mp3
01.01.2000 00:00 3.617.101 0010 - Satisfaction.mp3
01.01.2000 00:00 2.955.517 0011 - White Christmas.mp3
*hinten auch MIDI-Dateien.
Ich möchte mit dem Combo das wenn ich CD-1 auswähle, er mir diese auflistet und wenn ich eine doppelt anklicke, er sie mir startet, wobei ich sagen möchte ob ich MIDI oder MP3 hören möchte.
"0001 - Yesterday.mp3" ist das erste Lied, wobei "0001 - " nur bei zwei CD's fortlaufende ist (noch), was ich aber bereits angefangen habe zu ändern.
Auf jeder CD sind meistens unterschiedliche Mengen an Dateien drauf, aber alle haben eine Textdatei die wie oben aufgebaut ist. Datum und größe wollte ich eigentlich mal von Hand löschen, aber bin ich noch nicht zu gekommen. Also sollte es auch nicht stören.
So, nun hoffe ich, das ich mich verständlich ausgedrückt habe. Eigentlich wollte ich das mal als Datenbank machen, aber von DB habe ich gar keine Ahnung und bei cirka 50.000 Songs sollte ich vorsichtig sein, wie ich das mache.
__***all.txt = *** muß ich aus Sicherheitsgründen entfernen.
Also Jam00's Script arbeitet schon mal.
Ich habe insg. 69 CD's mit Musik.
Ich möchte wenn ich eine CD einlege, z. B. CD-1, das ich dann sagen kann, das diese drinne ist und das ich aus der CD nur die mp3 Dateien sehen und wenn ich diese dann doppelt anklicke , das er diese dann abspielt (was noch ein problem werden sein werd). Aber das sollte ich irgendwie hin bekommen, das das CD-Rom ja immer M: ist.
Und Raupi 's Script verstehe ich auch ohne "Wenn und Aber".
Danke für Eure Hilfe.
Also nun zeigt er mir bei der Auswahl CD-2
erst einmal ALLE drei Dateiendungen an und nicht nur die zwei gewünschten.
Dazu kommt, das nichts passiert, wenn ich dann bei CD-2 z. B. *.midi auswähle.
mhhhh. Komisch aber auch und für mich nicht verständlich !
Hallo & Moin-Moin.
ICh möchte mit Combo-Boxen arbeiten, bekomme aber es nicht hin.
So sieht es bis dato aus:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("Musik CD's")
[/autoit] [autoit][/autoit] [autoit]$1 = GUICtrlCreateCombo("", 10, 10)
GUICtrlSetData(-1, "CD-1|CD-2|CD-3|CD-4", "CD-1")
$2 = GUICtrlCreateCombo("", 10, 40)
GUICtrlSetData(-1, "*.midi|*.mp3|*.wav", "*.mp3")
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $1
$auswahl = GUICtrlRead($1)
Switch $auswahl
Case "CD-1"
GUICtrlSetData($2, "")
GUICtrlSetData($2, "*.midi|*.mp3", "*.mp3")
_comboread_cd1()
Case "CD-2"
GUICtrlSetData($2, "")
GUICtrlSetData($2, "*.midi|*.wav", "*.midi")
_comboread_cd2()
EndSwitch
EndSwitch
WEnd
Func _comboread_cd1()
$read = GUICtrlRead($2)
If $read = "*.midi" Then MsgBox(0, "MIDI-Datei", $read)
If $read = "*.mp3" Then MsgBox(0, "MP3-Datei", $read)
EndFunc
Func _comboread_cd2()
$read = GUICtrlRead($2)
If $read = "*.midi" Then MsgBox(0, "MIDI-Datei", $read)
If $read = "*.wav" Then MsgBox(0, "WAV-Datei", $read)
EndFunc
Problem ist, das wenn ich die obere auswähle, gleich die MSgBox erfolgt und nicht erst wenn ich auch unten ausgewählt habe. Also er soll erst wenn ich die CD und die Dateiendung gewählt habe weiter arbeiten (in diesem Fall die dazu passende MsgBox anzeigen).
Was und wo ist der Fehler?
Danke schon hier für die Hilfe.
SuFu & Hilfe wurden genutzt
Erweiterungswunsch: Das man auch noch "HotKeys" mit in die Menü's einbinden kann.
Wir haben beim MCP gelernt, das es ein Problem mit USB-WLAN-Sticks geben kann, wenn davor irgendwann mal ein USB-Speichermedium angeschlossen war. Dann trägt sich dieses irgendwie in die Registry ein und das ist dann das Problem.
Aber ich weiß nicht mehr genau was das war. Habe da wohl gerade nicht so genau aufgepaßt. 
In welchem Format liegen die Bildder vor ?
Bitte die hDwmApiDll zur Verfügung stellen !
DU kannst doch sicherlich den aktuellen Pfad wo Du gerade mit dem Explorer bst speichern und dann den Neustart durch laufen lassen un dann wieder den im Pfad angegebenen Bereich starten. Oder?
So trägst Du eine Dateiendung in die Registry ein:
;===============================================================================
; Requirement(s): keine
; Return Value(s): bei Erfolg: 1
; bei Fehler: 0 und @error = 1
;===============================================================================
$sFileType = ".abc" ; Dateierweiterung
$sDescription = "Tool" ; Beschreibung für die Datei
$sAppName = "" ; Anwendung für die Registriert werden
; soll, wird keine Anwendung angegeben
; wird die aktuelle Anwendung eingetragen
_RegisterFileType($sFileType, $sDescription, $sAppName)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _RegisterFileType($sFileType, $sDescription, $sAppName = "")
Dim $sTypeName
If $sFileType = "" Or $sDescription = "" Then
SetError(1)
Return 0
EndIf
If $sAppName = "" Then $sAppName = @ScriptFullPath
$sFileType = StringLower($sFileType)
If StringLeft($sFileType,1) <> "." Then
$sTypeName = $sFileType
$sFileType = "." & $sFileType
Else
$sTypeName = StringRight($sFileType, StringLen($sFileType) -1)
EndIf
$sTypeName = $sTypeName & "file"
RegWrite("HKEY_CLASSES_ROOT\" & $sFileType, "", "REG_SZ", $sTypeName)
RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName, "", "REG_SZ", $sDescription)
RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName & "\shell\open\command", "", "REG_SZ", $sAppName & " %1")
RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName & "\DefaultIcon", "", "REG_SZ", $sAppName & ",0")
SetError(0)
Return 1
EndFunc
Ich meine das dieses von "bernd670" geschrieben wurde.
Bei 500 Lad ich euch alle zu nem Bier, ( wahlweise auch Kaffee und Tee ) ein
Bei einer einladung, die ich gerne annehme, da ich Euch dann alle treffe, gehört aber dazu das die Anreisekosten getragen werden. Fahrgemeinschaften sind zugelassen Ich fahre dann über Kiel um dort den ersten einzusammeln. LOOL
@Commander21: Ich dachte immer, das Du wert darauf legst, jede Zeile zu sparen
