Beiträge von Yaerox

  • Songliste bearbeiten

    Die richtige ausgabe kannst dir ja sicherlich selbst schreiben ;) Habs jetzt doch ebend nebenbei gemacht. Viel Spaß.

    So gehts
    [autoit]

    #include <File.au3>
    #include <Array.au3>

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

    Local $aTracks
    Local $aArray[1][2]
    Local $aIndexes
    Local $sTracklist

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

    $sTracklist = FileOpenDialog("Select Tracklist...", @ScriptDir, "Tracklist (*.txt)")
    _FileReadToArray($sTracklist, $aTracks)

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

    For $i = 1 To UBound($aTracks) - 1
    $aSplit = StringSplit($aTracks[$i], ";")
    If $i = 1 Then
    $aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
    $aArray[$i - 1][1] = $aSplit[2]
    Else
    $aIndexes = _ArrayFindAll($aTracks, $aSplit[2], 0, 0, 0, 0, 2)
    If $aIndexes = -1 Then
    ReDim $aArray[$i + 1][2]
    $aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
    $aArray[$i - 1][1] = $aSplit[2]
    Else
    $aArray[$aIndexes][1] = $aArray[$aIndexes][1] + 1
    EndIf
    EndIf
    Next

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

    For $i = 0 To UBound($aArray) - 1
    If $aArray[$i][1] <> "" Then
    $aIndexes = _ArrayFindAll($aArray, $aArray[$i][1], 0, 0, 0, 0, 2)

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

    If UBound($aIndexes) > 0 Then
    ConsoleWrite($aArray[$i][1] & "(" & UBound($aIndexes) & "x)" & @CR & "--------------------" & @CR)
    For $y = 0 To UBound($aIndexes) - 1
    ConsoleWrite($aArray[$aIndexes[$y]][0] & @CR)
    $aArray[$aIndexes[$y]][0] = ''
    $aArray[$aIndexes[$y]][1] = ''
    Next
    ConsoleWrite(@CR)
    EndIf
    EndIf
    Next

    [/autoit]

  • CSV Datei umwandeln und Zeilen vergleichen

    Kannst dir ja mein Beispiel mal anschauen, es ist für sowas gedacht, wie gesagt leider ungetestet, aber vielleicht hilft dir das auf die springende Idee zu kommen.

    Im endeffekt wird bei dir Name; Straße; PLZ; Ort; Auftragsnummer zum Suchkriterium und Artikelnr. und VK als Anhangskriterium genutzt.

  • Songliste bearbeiten

    Wie gesagt, der Code war ungetestet ;)

    Ich hab eig. nciht wirklich die Zeit das nebenbei zu machen, aber lad doch mal ne kleine Testdatei dazu hoch dann kann man das auch ausprobieren ^^

    #Edit: OpenOffice -> kostenfreie Alternative zu Office, da gibt es auch ein "Excel" ...

  • Songliste bearbeiten

    Wenn ich mich nicht ganz irre, könntest du die Funktion Arrayunique auch selber schreiben.

    Ungetestet
    [autoit]

    Local $aArray[1][2], $aIndexes
    For $i = 0 To UBound($aInterpreten)
    $aIndexes = _ArrayFindAll($aArray, $aInterpreten[$i])
    If @error = 1 Then
    If $i = 0 Then
    $aArray[$i][0] = $aInterpreten[$i]
    $aArray[$i][1]++
    Else
    ReDim $aArray[$i + 1]
    $aArray[$i][0] = $aInterpreten[$i]
    $aArray[$i][1]++
    EndIf
    Else
    $aArray[$aIndexes][1]++
    EndIf
    Next

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

    For $i = 0 To UBound($aArray)
    If $aArray[$i][1] > 1 Then
    ConsoleWrite($aArray[$i][0] & "(" & $aArray[$i][0] & "x)" & @CR)
    ConsoleWrite($aArray[$i][0] & @CR)
    Else
    ConsoleWrite($aArray[$i][0] & @CR)
    EndIf
    Next

    [/autoit]

    Dann kannst du hiernach ja einfach das Array für die Ausgabe in eine andere Datei oder was auch immer durchlaufen und dir eine formatierte benötigte Ausgabe erstellen ...

  • CSV Datei umwandeln und Zeilen vergleichen

    Schon mal über eine Schleife überlegt, in der du für jede Zeile nach der Auftragsnummer des jetzigen Durchlaufs dein Array sortierst?

    Ich mag nicht sagen es ist performant, aber ich könnt mir vorstellen das es klappt mit der ein oder anderen Erweiterung...

    #Edit: Ich stelle mir die Datei so vor:

    und du willst die dann so haben:

    Code
    neue Zeilennummer | Auftragsnummer | alte Zeilennummer(n)
----------------------------------------------------------------------------------------
1 | 101 | 1
2 | 99 | 2, 32, 76
3 | 237 | 3
4 | 123 | 4
5 | 323 | 5

    Davon ausgegangen es gibt 4 Spalten und auf meine Auffassung oben bezogen...

    ungetestet!
    [autoit]

    ; Declare all $Vars first ...

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

    If GUICtrlRead($iCheckbox1) = $GUI_CHECKED then
    $hFile = FileOpenDialog("Bitte wählen Sie eine Datei aus.", @ScriptDir , "CSV-Datei (*.csv)", 1 )
    Else
    $hFile = @ScriptDir & "\test.csv"
    EndIf

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

    If Not _FileReadToArray($hFile, $aFilecontent) Then
    MsgBox(16, "Error", "Datei konnte nicht gelesen werden!")
    Return $aFilecontent
    EndIf

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

    For $i = 2 To $aFilecontent[0]
    $aValues = StringSplit($aFilecontent[$i], ";")
    $aIndexes = _ArrayFindAll($aFilecontent, $aValues[2])
    $sLine = $aValues[1]

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

    ;Look up all found rows with the same value in column $aValues[2]
    For $y = 0 To UBound($aIndexes)
    $aValues2 = StringSplit($aIndexes[$y], ";")
    ;Add all values after column $aValues[2] found by equal $aValues[2]-value
    For $z = 3 To $aValues2[0]
    If $z = 3 Then
    $sLine &= ";" & $aValues2[$i]
    ElseIf $z = $aValues2[0]
    $sLine &= $aValues2[$i]
    Else
    $sLine &= " , " & $aValues2[$i] & " , "
    EndIf
    Next
    Next

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

    $sLine &= ";" & $aValues[3] ;Add the last column
    $iPositions += 1
    Next

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

    FileWrite(@ScriptDir & '\ausgabe.csv', $sLine)
    MsgBox(64, "Info", "Die Datei hat " & $iPositions & " Position(en).")

    [/autoit]

  • .CSV Datei Spaltenbreite (Excel)

    Zitat von James

    Ich denke nicht, da in einer CSV Datei (meines Wissens nach) keine Formatierung gespeichert werden kann, sondern nur die Daten.

    CSV : means C omma S eparated V alues. it is a plain text (ansi) format.
    XLS : is the main binary file format for all e X ce L S heets
    Quelle: http://superuser.com/questions/1545…v-and-xls-files

    Sagt wie ich find, schon viel aus...

    @autoit93: Ich weiß nicht ob nur ich da so sehe, aber CSV und Excel sind zwei total unterschiedliche Dateitypen. Weil du grad wieder sagtest

    Zitat von autoit93

    aber die Excel Datei

    ... oben ist auch noch mald ie Erklärung dazu.

  • Nature One 'A time to shine' - Festival 2013

    Hallöchen zusammen,

    ich weiß ja nicht wer hier wie bewandelt mit der elektronischen Musik ist, allerdings dachte ich mir ich frag mal ob man auf der Nature One dieses Jahr vielleicht auch andere hier aus dem Forum antreffen wird :P

    Für alle die nicht wissen wovon ich spreche, ich würde sagen die Nature One ist sowas wie das Wacken der elektronischen Musik. Wem das immer noch nicht hilft, sagen wir es ist das größte elektronische Festival in Deutschland, am 2. und 3. August. Camping beginnt meist am 1. und endet am 5. August (zumindest dieses Jahr, es ist immer am ersten Augustwochenende).

    Ich war vor zwei Jahren schon mal dabei, und ich kann nur sagen für Musikliebhaber ist dies das absolute non plus ultra an Festival was es in Deutschland gibt. Natürlich nicht ganz günstig, aber anstatt ein Jahr zu sparen und nach Mallorca oder so zu fliegen, geh ich lieber auf die Festivals und vergiss da alles neben der Musik über die Wochenenden :)

    Also, wird man dort jemanden antreffen? :D

    Für die interessierten hier: Google -> Nature One für alle Infos.
    Kostenfaktor (meine Erfahrung): ~75€ Ticket, ~55€ Ticket für ein Reiseunternehmen das mich hin und zurück bringt, Camping 17€ + 5€ Müllpfand, und dann halt alles was man sonst noch so ausgibt. Vor 2 Jahren war ich bei ca. 450€ für das gesamte Festival, dieses Jahr rechne ich mit 500€ - 550€.

    So Far

  • Werbung in AutoIt-Programmen

    Ich würde mir ganz primitiv die Frage stellen ob das Projekt von dir so interessant ist, dass es sich lohnen könnte Zeit in das Thema Werbung zu stecken.

    Ist das Produkt gut, ist die Frage würden dafür Nutzer zahlen: Ja, Nein, Vielleicht.
    Gibt es Alternativprodukte die kostenfrei sind: Ja, Nein, mit Einschränkungen
    Könnte es kein Problem sein dein Produkt ggn das Alternativprodukt zu ersetzen: Ja, Nein, mit Einschränkungen.

    Ich möchte nicht negativ klingen, aber im WWW gibt es so viele Wege und Möglichkeiten, ich bin eher für die Schiene, du tust etwas weil es dir Spaß macht. Willst du es teilen, dann teile es kostenlos. Ein Spendenbutton normal irgendwo hinzustellen ist meiner Meinung nach nicht übertrieben. Aber zumindest wird kein User gezwungen. Sollten die User sehr erfreut dadurch sein und mehr dafür interessieren, werden die die die treu bleiben werden weil sie dein Produkt schätzen auch spenden und dich supporten. Wenn nicht, ist es reichlich fragwürdig ob das Projekt jemand die Anzahl an Nutzern hat wie es vll. als OpenSource hat/kriegen könnte...

    Würdest du es beruflich machen, solltest du all diese Vorgehensweisen kennen, wenn nicht ... dann ohhhohh ^^

    So Far

  • 1 Variable für 2 Ctrls?

    Bin mir net sicher, aber mal mit Arrays versucht?


    Case $aMenuItem1
    _Function()
    Case $aMenuItem2
    _Function()
    Case $aMenuItem3
    _Function()


    und halt einfach immer in das Element [0] die ButtonID und in Element [1] die MenüID oder so.

    Vergiss das obere, ich dachte du willst bei dem Case net immer zwei Dinge hinschreiben. m-obi hats schon geschrieben.

  • merkwürdiger Fehler mit Array.au3

    Wenn du sagst das funktioniert mal und mal nicht (--> nach dem kompilieren), dann poste vielleicht mal deine ganzen compile-settings. Sagst du "Add required *.au3"? Wenn einige deiner Kollegen die UDF haben und andere nicht könnte das ein Fehler sein.

    $sBackuppath ist dazu vorher nicht deklariert, was auch zu einem Fehler führen könnte.

    Der Fehlermeldung nach denke ich, dass eine Variable nicht von Anfang an als Array deklariert ist und irgend eine Funktion damit ein problem hat.

    Kann mir das leider nicht genauer anschauen da ich die _NTServices.au3 nicht habe aber grad auch keine Zeit um mir da was raus zu suchen ^^

    So Far

  • Suche YouTube-Kanalnamen für Musikkanal

    Die Frage die ich mir stellen würde ist, möchtest du in der Masse auffallen?

    Am Anfang relativ schwierig, aber wenn man das Bild mal von einer anderen Seite aufrollt, würde ich sagen nimm einen "normalen" Kanalnamen, und benenne deine Videos einfach dementsprechend. Sehr gutes beispiel ist FeintDnB. Okay die haben sowas auch in ihrem Namen (DnB) aber wenn ich bei Youtube etwas mit Beats eingebe, sehe ich auf anhib das von den ersten 15 vorgeschlagenen Videos 14 Kanalnamen dazu einen Namen mit Beats haben. Wenn du dann einen "normalen" hast, fällt das auf. Klar muss dafür dein Video bekannt werden etc. pp. aber so könntest du dich z.B. normal benennen und in deinen Video-Tittel einfach zu Beginn schreiben was es ist [Techno-Beats] Trackname - Interpret (Remix).

    Ich habe damals im Bereich ESports die Erfahrung gemacht, dass ich mit einem normalen Namen mehr Leute angesprochen habe als mit einem wie "Let's play". Von Let's play gibt es schon 20.000, vll sind 50 davon gut, aber wenn ich gerade das weiß, schaue ich lieber nach jemand mit normalen Namen, wo ich hoffe ich finde schneller einen der es gut macht, als einen der vielleicht besseres Equipment hat aber einen auf ich bin YOUTUBER denkt und der Inhalt ranz ist. Ich würde bestimmt net 20.000 Let's play Kanäle durchschauen um hoffentlich einen der 50 zu finden wo es auch vom Inhalt her gut ist ;) Man könnte sagen quality > quantity ...

    Vielleicht würde ich mit den Gedanken dann so anfangen das ich mir überlege was für Musik, wie weit kann ich diese eingrenzen, und will ich später vll. mehr als nur in eine Richtung gehen...außerdem würde sich mir die Frage stellen wie du deien Beats produzierst. Launchpad? Turntables und n Mischpult? etc.
    Es gab mal ne Weile einen Scretcher, der sich SpinningParrot genannt hat. Es war irgendwo lustig, zumal wenn man den gesehen hat. Er hatte ein Papagei-Plakat immer hinter sich an der Wand, was man somit im Video immer sah und hat sich dann sonne Papageien-Mütze/Maske geholt die er zwar aufm Kopp hatte, aber net runtergezogen. Sowas ist selten und das merkt man sich, und wenn die Qualität dann noch stimmt haste gewonnen denke ich :P

    Mir fält grad nichts außergewöhnliches ein, aber vielleicht konnt ich dir ja den ein ander anderen Denkanstoß geben :)

    So Far