Beiträge von Musashi

Zitat von Abraham

Verwende ich dieses Script, da macht er alles mit .au3 Dateien richtig, aber die .mp4 Dateien will er nicht in den erstellten Ordner verschieben.

Vielleicht hat es was mit der Größe der Dateien zu tun, hab da keine Ahnung.

Mit der Größe hat es nichts zu tun.

Ich habe in meine Teststruktur eine .mp4-Datei mit 1GB eingefügt, und die wird problemlos in den erstellten Ordner verschoben. Generell gibt es keinen Grund, warum Dateien mit der Extension .au3 funktionieren, .mp4-Dateien hingegen nicht.

Kopiere bitte mal folgendes Skript in den Ordner wo deine Dateien liegen und führe es aus.

Opt('MustDeclareVars', 1)

#include <File.au3>
#include <Array.au3> ; nur zur Testanzeige mit _ArrayDisplay

Global $g_aFileList, $iError, $sErrorMsg

$g_aFileList = _FileListToArray(@ScriptDir & "\" , "*", 1, True) ; 1 = nur Dateien
$iError = @error
If Not $iError Then
	_ArrayDisplay($g_aFileList)
Else
	Switch $iError
		Case 1
			$sErrorMsg = "1 = Folder not found or invalid"
		Case 2
			$sErrorMsg = "2 = Invalid $sFilter"
		Case 3
			$sErrorMsg = "3 = Invalid $iFlag"
		Case 4
			$sErrorMsg = "4 = No File(s) Found"
		Case Else
			$sErrorMsg = "unbekannter Fehler"
	EndSwitch

	MsgBox(BitOR(4096, 16), "Fehler : ", $sErrorMsg & @CRLF)
EndIf

Anschließend poste einen Screenshot des Arraydisplay-Fensters.

Zitat von Abraham

Bei meinen Tests erstellt er die Ordner korrekt, eine .au3 Datei verschiebt er in den Ordner aber ohne Extension, eine .mp4 verschiebt od. kopiert er gar nicht in die erstellten Ordner

Das kann ich nicht nachvollziehen.

Verwendest Du wirklich das o.a. Skript, oder hast Du Teile davon in dein eigenes übernommen ?

Ich habe den Eindruck, dass wir es hier mit dem häufig (von z.B. Andy ) beschriebenen https://de.wikipedia.org/wiki/XY-Problem zu tun haben.

Zitat von Abraham

Wenn ich das verwende erstellt er brauchbare Ordner, aber er verschiebt die Datei nicht hinein

Ich habe in das Skript von Moombas mal den regulären Ausdruck eingebaut :

Opt('MustDeclareVars', 1)

#include <MsgBoxConstants.au3>

CreateStructure()

Func CreateStructure()
	Local $sFileName = "", $iResult = 0, $target
	Local Const $hSearch = FileFindFirstFile("*.*")
	If $hSearch = -1 Then
		MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
		Return False
	EndIf

	While 1
		$sFileName = FileFindNextFile($hSearch)
		If @error Then ExitLoop

		If ($sFileName <> @ScriptName) Then
			$target = @ScriptDir & '\' & StringRegExpReplace($sFileName, '(.*)\..*', "$1") & '\'
			If Not FileExists($target) Then DirCreate($target)
			FileMove(@ScriptDir & '\' & $sFileName, $target & $sFileName)
		EndIf
	WEnd
	FileClose($hSearch)
EndFunc   ;==>CreateStructure

In meiner Teststruktur wird alles korrekt verschoben (Ausnahme, wie gesagt, der Sonderfall, dass Dateien ohne Extension vorhanden sind).

Moombas :

Ein weiterer Sonderfall wäre, dass ein Dateiname keine Extension besitzt. Dann kann kein gleichnamiges Unterverzeichnis angelegt werden.

Nur eine kleine Alternative zu :

$target = @ScriptDir & '/' & StringLeft($sFileName, StringinStr($sFileName, '.', Default, -1) - 1) & '/'

Hier kann z.B. auch ein regulärer Ausdruck verwendet werden :
$target = @ScriptDir & '\' & StringRegExpReplace($sFileName, '(.*)\..*', "$1") & '\'

Zitat von BugFix

Ist euch ein Limit für den Befehlsstring bekannt?

Hi BugFix :

(ein reiner Schuss ins Blaue )

Bei https://www.sqlite.org/limits.html findet man folgende Aussage :

Zitat

1. Maximum length of a string or BLOB :

The maximum number of bytes in a string or BLOB in SQLite is defined by the preprocessor macro SQLITE_MAX_LENGTH. The default value of this macro is 1 billion (1 thousand million or 1,000,000,000). You can raise or lower this value at compile-time using a command-line option like this:

-DSQLITE_MAX_LENGTH=123456789

The current implementation will only support a string or BLOB length up to 231-1 or 2147483647.

(... aber das hast Du wahrscheinlich bereits selbst gefunden)

BugFix , Raupi [et al.]

Könnte bitte jemand von Euch diesen Thread schließen ?

Der Fragesteller ist längst zufrieden, und alles andere sind Beiträge zu persönlichen Befindlichkeiten .

Zitat von AspirinJunkie

Es ist halt eine klassische Alina-Aufgabenstellung:

Zitat von Alina

Weiß jetzt nicht, was ich denken soll. Bin total verwirrt.

Da Du die Zeilen mit FileReadLine einliest, gilt (aus der Hilfe) :

Bemerkungen

Gibt eine Textzeile zurück. Die am Zeilenende eingelesenen Zeilenumbrüche (@CR oder @LF) werden automatisch entfernt.

Nachtrag :

Ich habe mal eine Zeitberechnung (wie in dem Script von AspirinJunkie ) laufen lassen, allerdings die reale Zeit ohne Berücksichtigung eines Overheads.

Hinzugefügt habe ich die Variante mit _FileCountLines

(Testdatei : 12000 Zeilen , die ersten 11999 Zeilen mit Länge 192, Zeile 12000 (die letzte) mit weniger als 192 Zeichen)

Ergebnis :

            name             time       result
----------------------------------------------
     _FileCountLines:         97.3117 ms     11999
    _FileReadToArray:        140.5026 ms     11999
        FileReadLine:        110.7730 ms     11999
     FileReadToArray:         70.4800 ms     11999
 StringRegExpReplace:         73.0387 ms     11999

Hier das modifizierte Testskript :

#include <String.au3>
#include <File.au3>

#Region create test file
Global $N_testfile = 11999 ; number of lines with length 192
Global $hTestFile = FileOpen("test.txt", 2)

For $i = 1 To $N_testfile
    FileWriteLine($hTestFile, _StringRepeat("o", 192))
Next
; Write last line (Line 12000) - can be less then 192  :
FileWriteLine($hTestFile, _StringRepeat("o", 191))
FileClose($hTestFile)
##EndRegion


#Region performance comparison
Global Const $N = 1e2 ; number of measures
Global $iCount, $iT

ConsoleWrite(@CRLF & "            name             time       result" & @CRLF & "----------------------------------------------" & @CRLF)

; variant with _FileCountLines
$iT = TimerInit()
$iCount = _FileCountLines("test.txt") ; Anzahl aller Zeilen in Datei
If StringLen(FileReadLine("test.txt", -1)) <> 192 Then $iCount -= 1 ; Falls letzte Zeile <> 192 Zeichen, dann abziehen
$iT = TimerDiff($iT)
ConsoleWrite(StringFormat("% 20s:\t%12.4f ms\t% 6d\n", "_FileCountLines", $iT, $iCount))

; variant with _FileReadToArray
$iT = TimerInit()
Local $aFile, $iCount = 0
_FileReadToArray("test.txt", $aFile)
For $j = 1 To $aFile[0]
    If StringLen($aFile[$j]) = 192 Then $iCount += 1
Next
$iT = TimerDiff($iT)
ConsoleWrite(StringFormat("% 20s:\t%12.4f ms\t% 6d\n", "_FileReadToArray", $iT, $iCount))

; variant with FileReadLine
$iT = TimerInit()
Local $hFile = FileOpen("test.txt", 0), $iCount = 0, $sLine
While 1
    $sLine = FileReadLine($hFile)
    If @error = -1 Then ExitLoop
    If StringLen($sLine) = 192 Then $iCount += 1
WEnd
FileClose($hFile)
$iT = TimerDiff($iT)
ConsoleWrite(StringFormat("% 20s:\t%12.4f ms\t% 6d\n", "FileReadLine", $iT, $iCount))

; variant with FileReadToArray
$iT = TimerInit()
Local $iCount = 0
Local $aFile = FileReadToArray("test.txt")
For $j = 0 To @extended - 1
    If StringLen($aFile[$j]) = 192 Then $iCount += 1
Next
$iT = TimerDiff($iT)
ConsoleWrite(StringFormat("% 20s:\t%12.4f ms\t% 6d\n", "FileReadToArray", $iT, $iCount))

; variant with StringRegExpReplace
$iT = TimerInit()
StringRegExpReplace(FileRead("test.txt"), '(?m)^.{192}$', '')
Local $iCount = @extended
$iT = TimerDiff($iT)
ConsoleWrite(StringFormat("% 20s:\t%12.4f ms\t% 6d\n\n", "StringRegExpReplace", $iT, $iCount))

##EndRegion

Zitat von AspirinJunkie

Was mich aber viel mehr interessiert :

Warum möchtest du die Längen aller anderen Zeilen ermitteln wenn du doch bereits weißt, dass sie immer 192 Zeichen lang sind?!?

Du interessierst dich doch offensichtlich nur für die Länge der letzten Zeile.

Hierfür muss man doch aber gar nicht die ganze Datei durchgehen:

Falls ich es korrekt verstehe möchte Alina die Anzahl aller Zeilen mit Zeichenlänge 192 ermitteln.

Alle Zeilen - bis auf die letzte - sind immer 192 Zeichen lang.

Es geht, wie Du richtig angeregt hast, also nur um die Zeichenlänge der letzten Zeile.

$iLen = StringLen(FileReadLine("test.txt", -1))
MsgBox(0, "", "Länge der letzten Zeile: " & $iLen)

Hiermit wird aber nur die Zeichenlänge der letzten Zeile geprüft - nicht die Anzahl der vorangegangenen Zeilen ermittelt.

Wäre es so nicht besser ? :

[... Testdatei generieren]

Global $iCountLines, $iT
$iT = TimerInit()
$iCountLines = _FileCountLines("test.txt") ; Anzahl aller Zeilen in Datei
If StringLen(FileReadLine("test.txt", -1)) <> 192 Then $iCountLines -= 1 ; Falls letzte Zeile <> 192 Zeichen, dann abziehen
$iT = TimerDiff($iT)
ConsoleWrite(StringFormat("% 20s:\t%10.6f ms\t% 6d\n", "_FileCountLines", $iT, $iCountLines))

....

Zitat von Peter S. Taler

Habe ich Zusammenhänge übersehen?

Das einzige Beispiel, welches ich auf die Schnelle gefunden habe, ist alles andere als trivial.

Siehe : https://www.autoitscript.com/forum/topic/13…ls_1009870_menu

(ich habe die Quelle(n) hier noch mal angehängt - zur Sicherheit gegen Forenupdates

Zitat von Kanashius

Also füg am besten logging zu deinem Programm hinzu, sodass du herausfinden kannst, wo genau das Programm hängen bleibt, sodass du das beheben kannst.

Sehe ich auch so.

AutoIt liefert bereits eine einfache Log-Funktion, siehe _FileWriteLog

Zitat von Peter S. Taler

Die "voreingestellte Breite kann ich leider nicht beeinflussen - auch nicht wenn ich den Text des Spaltenkopfes durch beliebig Buchstaben breiter mache.

Hat jemand eine Idee wie man die Spalten per defaut, breiter bringt?

Ja, mittels _GUICtrlListView_SetColumnWidth (steht alles in der Hilfe )

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()
        GUICreate("ListView Get/Set Column Width (v" & @AutoItVersion & ")", 900, 300)
        Local $idListview = GUICtrlCreateListView("Ku Nr | Name123456789012345678901234567890 ende| Ort | LS Nr | Datensatz Nr", 2, 2, 894, 268)
        GUISetState(@SW_SHOW)

        _GUICtrlListView_SetColumnWidth($idListview, 0, 100)

        ; Change column 1 width
        MsgBox($MB_SYSTEMMODAL, "Information", "Column 1 Width: " & _GUICtrlListView_GetColumnWidth($idListview, 1))
        _GUICtrlListView_SetColumnWidth($idListview, 1, 500)
        MsgBox($MB_SYSTEMMODAL, "Information", "Column 1 Width: " & _GUICtrlListView_GetColumnWidth($idListview, 1))

        ; Loop until the user exits.
        Do
        Until GUIGetMsg() = $GUI_EVENT_CLOSE
        GUIDelete()
EndFunc   ;==>Example

Zitat von Peter S. Taler

nach meinem dafürhalten gibt es damit aber ein Problem.... man kann nur zusammenhängende Zeilen markieren. Ich brauche aber beliebige nicht zusammenhängende Zeilen

Natürlich kann man auch nicht zusammenhängende Zeilen (Bereiche) mit der Maus markieren, siehe :

Als Ergebnis (Select drücken) wird in der SciTE-Konsole folgender String ausgegeben :

1409, 2965, 314, 4332, 6500, 9275

Diesen String kannst Du dann mit bekannten Mitteln bearbeiten und in eine Datei schreiben.

Peter S. Taler Nachtrag zur Info :

Bereiche markiert man mit [SHIFT] und linke Maustaste , einzelne Markierungen mit [CTRL] und linke Maustaste.

Man kann auch beide Markierungsvarianten mischen.

Zitat von Peter S. Taler

Ich suche also eine Art scrollbares Auswahlfenster

Dies wäre z.B. eine Variante :

#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 6 -w 7

#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()
    Local $aItemsSelected, $idListBox, $sSelected, $hBtnSelect

    GUICreate("Liste mit multipler Selektion", 500, 700)
    $idListBox = GUICtrlCreateList("", 10, 10, 400, 600, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL))
    $hBtnSelect = GUICtrlCreateButton("Select", 10, 650, 80, 30)
    GUISetState(@SW_SHOW)

    ; Daten in Listbox eintragen :
    ; Hier beispielhaft 30 Nummern generiert (kann auch per Array besetzt werden)
    _GUICtrlListBox_BeginUpdate($idListBox)
    For $iI = 1 To 30
        _GUICtrlListBox_AddString($idListBox, String(Random(1, 10000, 1)))
    Next
    _GUICtrlListBox_EndUpdate($idListBox)

    While True
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit

            Case $hBtnSelect
                $aItemsSelected = _GUICtrlListBox_GetSelItemsText($idListBox)
                ; Selektierte Items in die SciTE-Console schreiben (alternativ in eine Datei)
                For $i = 1 To $aItemsSelected[0]
                    If $i > 1 Then $sSelected &= ", "
                    $sSelected &= $aItemsSelected[$i]
                Next
                ConsoleWrite($sSelected & @CRLF)
                ContinueCase
        EndSwitch
    WEnd
    GUIDelete()
EndFunc   ;==>Example

Zitat von mumpel

Gibt es auch eine Möglichkeit, noch ein Logo und einen Beschreibungstext einzubringen, wie im Beispielbild? Danke!

Die aktuelle quricol.dll unterstützt meines Wissens keine 'artistic' QR-Codes (so die gebräuchliche Bezeichnung für QR-Codes mit integrierter Grafik).

Aus einem Beitrag, den ich vor kurzem geschrieben habe :

Eine kleine Tipphilfe zu MsgBoxen und ConsoleWrites :

Nehme folgendes Trivialskript :

AutoIt

Local $iCount = 0
For $i = 1 To 5
     $iCount += $i * 2
Next

Setze den Mauscursor auf die Variable $iCount in der Schleife.

Verwende nun die Tastenkombination ALT-D (natürlich ohne das - Zeichen).

Damit wird automatisch eine ConsoleWrite-Anweisung eingefügt.

Mit der Tastenkombination CTRL-SHIFT-D wird analog eine MsgBox eingefügt.

Mit der Tastenkombination CTRL-ALT-Z können alle so eingefügten Zeilen wieder entfernt werden.

Hi Peter !

Denkbar ist vieles .

Hast Du ein konkretes Beispiel das man mal testen könnte, oder ist die Frage rein hypothetisch ?

Herzlich Willkommen im Forum .

Nach deiner Beschreibung dürfte AutoIt genau die richtige Programmiersprache sein. Einfach zu lernen aber mit viel Luft nach oben.

Zitat von mumpel

Das Backslash wird automatisch hinzugefügt (If StringRight($sSourceFolder, 1) <> "\" Then $sSourceFolder &= "\"), wenn es nicht mit übergeben wurde.

OT : dafür bietet sich auch die Funktion _WinAPI_PathAddBackslash an

Fügt einen Backslash am Ende eines Strings hinzu, um die korrekte Syntax für einen Pfad zu erstellen

Parameter