Erst mal Willkommen "Machdeborjer" 
,wohne ca. 50 km von dir entfernt.
Ich bin eher der "Non"-Grafik Typ, hatte mich aber mal an was Ähnlichem versucht. Daher kann ich aus Erfahrung sagen: 
Dein Werk gefällt mir und ich hoffe, dass wir noch weitere schöne Skripte von dir sehen werden.
Wenn du mit RegExp arbeiten möchtest, solltest du auch RegExp-Befehle verwenden. 
Also statt:
[autoit]
StringReplace
; verwende:
StringRegExpReplace
Leider liefert die Funktion im Falle von z.Bsp. dxe_a1 und dxa_a11 und dxe_111 nur den Wert zurück, der am längsten ist. Das ist nicht gewollt. Es sollen die Werte
Kann ich nicht bestätigen, dein Bsp. lieferte alle 3 Ergebnisse genau, wie gewollt.
Unabhängig von deinem Problem: Warum machst du das so kompliziert?
Das kannst du ohne Java-Gedöns und sauber per CMD-Line-Befehlen des PDFCreators erledigen. Und das Beste: Diese Befehle wurden schon in eine AutoIt-UDF portiert. Bemühe mal die SuFu.
ich fürchte, ich werde bis an mein Lebensende Variablen deklarieren
Was ist daran schlimm? - Somit wirst du zum sauberen Umgang mit Variablen gezwungen. Du mußt dir also Gedanken machen welche Variablen du wo einsetzen willst, anstatt einfach eine Variable mitten im Skript aus der Luft zu greifen. Bei kurzen Skripten ist das sicher unproblematisch, aber bei längeren Sachen sollte man zwingend alles vorab deklarieren um die Übersicht zu behalten.
Wenn du nicht extra deklarierst, werden alle Variablen als Global betrachtet - dafür kannst du ein Skript von mir nutzen, das das erledigt: Variablendeklaration automatisiert. Habe das zwar ewig nicht angewendet, sollte aber noch seinen Dienst tun. Da es von 2008 ist, kann es aber gut sein, dass einige (neuere) Konstanten als Variablen interpretiert werden. Müßte das Skript mal angepaßt werden.
EmptyDllCreator, gab es den nicht schon einmal vor einiger Zeit ?
Du solltest schon lesen, in welchem Thread du postest! - Das hier ist der Thread zum "EmptyDllCreator" - s. Post #1 
Benutzt du ein x64 Betriebssystem? weil AFAIK hatte Ich die Dll damals für 32 Bit kompiliert.
Ja, hatte aber extra "#AutoIt3Wrapper_UseX64=N" verwendet.
Ich habe heute mal eine Dll damit erstellt und versucht zu nutzen. Jedoch kann ich nichts aus der Dll wieder laden.
Habe dann eine existierende Dll ausgeschlachtet und die identischen Inhalte eingebaut - daraus kann ich auch wieder laden.
Bei deiner Dll kann die "SizeofResource" nicht ermittelt werden. Ich habe beide Dll mal angehängt.
#include-once
#include <WinAPI.au3>
#include <Memory.au3>
#include <GDIPlus.au3>
$res1 = @ScriptDir & '\ressource.dll' ; Leer-Dll erstellt mit "EmptyDllCreator"
$res2 = @ScriptDir & '\my_res.dll' ; vorhandene Dll ausgeschlachtet
$hBmp = _GetImageFromResource('POWER_ON', $res1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hBmp = ' & $hBmp & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$hBmp = _GetImageFromResource('POWER_ON', $res2)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hBmp = ' & $hBmp & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
#cs
@@ Debug ($res1): $hBmp = 0
>Error code: 5 << "SizeofResource" Ermittlung schlägt fehl!!
@@ Debug ($res2): $hBmp = 0x28051D4D
>Error code: 0
#ce
;#Function# ============================================================================================================================================
; Name............: _GetImageFromResource
; Description.....: Laden eines Bildes (BMP,GIF,JPG) aus einer Resourcedatei
; Syntax..........: _GetImagefromResource($Resname, $Resfile = -1, $ResType = 10)
; Parameters......:
; $Resname - Name der Resource
; $Resfile - Resourcedateiname , wenn leer wird die Autoit Exe Datei verwendet
; $ResType - Resourcetype 2= Bitmap, alle anderen = 10. GIF und JPG Dateien müssen als RCDATA gespeichet sein.
; Return values .:
; Success - Handle des des Bitmaps
; Failure - Comming soon
; Author ........:
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......;
; ======================================================================================================================================================
Func _GetImagefromResource($Resname, $Resfile = -1, $ResType = 10)
Local Const $IMAGE_BITMAP = 0
Local $hmod, $hwnd, $InfoBlock, $ResSize, $Mem, $pMem, $dll, $dll2, $hData, $pData, $pStream, $ret, $hBitmap, $pBitmap
If $Resfile = -1 Then; Resfile = Executable Autoit Exe
$hmod = _WinAPI_GetModuleHandle("")
If @error Then Return SetError(1, 0, 0)
Else
;~ $hmod = _WinAPI_LoadLibrary($Resfile)
$hmod = _WinAPI_LoadLibraryEx($Resfile, 0x00000020) ; $LOAD_LIBRARY_AS_DATAFILE ; ############
If @error Then Return SetError(2, 0, 0)
EndIf
If $ResType =2 Then
$hBitmap = _WinAPI_LoadImage($hmod, $Resname, $IMAGE_BITMAP, 0, 0, 0)
If @error Then Return SetError(3, 0, 0)
If $Resfile <> -1 Then DllCall("Kernel32.dll", "int", "FreeLibrary", "str", $hmod)
Return $hBitmap
Else
$InfoBlock = DllCall("kernel32.dll", "int", "FindResourceW", "int", $hmod, "wstr", $Resname & Chr(0), "long", $ResType) ; ############
;~ ConsoleWrite('FindResourceW: ' & $InfoBlock[0] & @LF)
If @error Then Return SetError(4, 0, 0)
$InfoBlock = $InfoBlock[0]
If $InfoBlock = 0 Then Return SetError(5, 0, 0)
$ResSize = DllCall("kernel32.dll", "dword", "SizeofResource", "int", $hmod, "int", $InfoBlock)
If @error Then Return SetError(6, 0, 0)
$ResSize = $ResSize[0]
If $ResSize = 0 Then Return SetError(7, 0, 0)
$Mem = DllCall("kernel32.dll", "int", "LoadResource", "int", $hmod, "int", $InfoBlock)
If @error Then Return SetError(8, 0, 0)
$Mem = $Mem[0]
If $Mem = 0 Then Return SetError(9, 0, 0)
$pMem = DllCall("kernel32.dll", "int", "LockResource", "int", $Mem)
If @error Then Return SetError(8, 0, 0)
$pMem = $pMem[0]
If $pMem = 0 Then Return SetError(10, 0, 0)
If $Resfile <> -1 Then DllCall("Kernel32.dll", "int", "FreeLibrary", "str", $hmod)
$hData = _MemGlobalAlloc($ResSize, 2)
$pData = _MemGlobalLock($hData)
_MemMoveMemory($pMem, $pData, $ResSize)
_MemGlobalUnlock($hData)
$ret = DllCall("ole32.dll", "int", "CreateStreamOnHGlobal", "int", $hData, "long", 1, "Int*", 0)
$pStream = $ret[3]
_GDIPlus_Startup()
$pBitmap = DllCall($ghGDIPDll, "int", "GdipCreateBitmapFromStream", "ptr", $pStream, "int*", 0)
$pBitmap = $pBitmap[2]
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($pBitmap)
_GDIPlus_BitmapDispose($pBitmap)
_GDIPlus_Shutdown()
$dll = DllStructCreate("Uint", $pStream)
$dll2 = DllStructCreate("uInt", DllStructGetData($dll, 1) + 
DllCall("", "UInt", DllStructGetData($dll2, 1), "UInt", $pStream)
_WinAPI_DeleteObject($pStream)
$pStream = 0
_MemGlobalFree($hData)
If $Resname <> -1 Then _WinAPI_FreeLibrary($hmod)
Return $hBitmap
EndIf
EndFunc ;==>_GetImagefromResource
Alles anzeigenHoppla...mein Fehler
Moment
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>$Form1 = GUICreate("NLT", 105, 116, 192, 133, $GUI_SS_DEFAULT_GUI, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
[/autoit] [autoit][/autoit] [autoit]
$Label1 = GUICtrlCreateLabel("Nova Lüftungstool", 9, 8, 91, 17)
$Label2 = GUICtrlCreateLabel("Status: On/Off", 18, 32, 73, 17)
$Button1 = GUICtrlCreateButton("Tastenbelegung", 5, 72, 83, 17)
$Button2 = GUICtrlCreateButton("Hilfe", 5, 96, 83, 17)
$Label3 = GUICtrlCreateLabel("v.0.4", 40, 48, 28, 17)
GUISetState(@SW_SHOW)$Form2 = GUICreate("Nova Lüftungstool Tastenbelegung", 540, 230, 666, 394)
[/autoit] [autoit][/autoit] [autoit]
$Label1 = GUICtrlCreateLabel("Nova Lüftungstool", 152, 32, 133, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Tastenbelegung", 160, 64, 103, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Eckig: Kanal=a; Bogen=s; Übergang=ü; Übergang eckig>rund=p; T-Stück=t; Hosenstück=h", 56, 104, 449, 17)
$Label4 = GUICtrlCreateLabel("Rund: Rohr=w; Bogen=r; T-Stück=e; Übergang=u", 56, 144, 456, 17)
$Label5 = GUICtrlCreateLabel("Konstruktionshilfe: Linie=l; K-Linie=k; Verbinder=v; Messen=m; Draggen=d; Drehen=y; Spiegeln=g", 56, 184, 463, 17)
$Label6 = GUICtrlCreateLabel("Textmodus=q; Beenden=Einfg", 144, 200, 371, 17)
GUISetState(@SW_HIDE)While 1
[/autoit]
$nMsg = GUIGetMsg($Form1)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_Show, $Form2)
While 1
$nMsg = GUIGetMsg($Form2)
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form2)
GUISetState(@SW_Show, $Form1)
ExitLoop
EndSwitch
WEnd
EndSwitch
WEnd
Das sollte man so auf gar keinen Fall verwenden. Gerade für solche Fälle gibt es ein Flag in der Funktion GuiGetMsg(), wie im Bsp. von Make-Grafik gezeigt.
ich hab gerade nicht einmal eine Idee wie ich die Sortierreihenfolge umdrehen kann
Ganz simpel bei Benutzung von " _GUICtrlListView_SimpleSort " :
• erster Aufruf sortiert aufwärts
• zweiter Aufruf sortiert dann abwärts
usw.
oder du übergibst als Flag True/False - s. Hilfe
Da die Arraygröße erst am Schluss bekannt ist, ist stringsplit wohl die beste Lösung.
Nicht unbedingt. Du kannst doch sicher abschätzen, ob es 100.000 oder 1.000.000 Einträge werden. Erstelle ein Array am Beginn, das auf jeden Fall größer ist als die zu erwartende Anzahl an Einträgen. Den Zähler für die Anzahl Elemente erhöhst du bei jedem neuen Element und verwendest ihn dann als Index für den Eintrag im Array (Achtung: Index beginnt bei 0). Nach dem letzten Element-Eintrag schneidest du mit ReDim die überzähligen Arrayelemente ab. Du kannst auch den Zähler an Position [0] im Array führen, wenn die Anzahl der Elemente im weiteren von Bedeutung ist (erspart dir ein UBound ;)).
Global $array[100000] = [0] ; Zähler an [0] führen
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To $iPasses
$array[$array[0]] = $i ; Eintrag an aktueller Zählerposition
$array[0] += 1 ; Zähler um eins erhöhen
Next
ReDim $array[$array[0]]
[/autoit]und ich hab außerdem keine Lust auf zu viele Typen mit ner Jägerlizens, die im Wald rumballern
[OT]
Aber da muß ich den Jäger mal in Schutz nehmen.
Die Wildbestände haben in unseren Wäldern stark zugenommen. In vielen Gebieten übersteigt es deutlich die Sättigungswerte (max. Anzahl Tiere je Fläche). Es mag Ausnahmen geben - aber in der Regel sind Jäger verantwortungsbewußte Gesellen, denen die Hege und Pflege des Wildes am Herzen liegt. Und dazu gehört nunmal auch die Regelung der Bestandsgröße. Und kommt mir bitte nicht mit dieser Scheinmoral "oooch, die armen Rehlein.." dreht euch dann um, geht in die Küche und bratet euch ein Steak.
[/OT]
Warum machst du dir doppelte Arbeit?
Du liest die Daten aus dem Listview und schreibst sie in ein Array. Dann liest du die Daten aus dem Array und schreibst sie in die Datenbank. - Welchen Sinn hat dann bitte das Array, es wird nicht benötigt, du kannst, wie in meinem Entwurf gezeigt, sofort den SQL-String erstellen.
Und wie in meiner Funktion ersichtlich: Führe nicht nach jedem Schritt eine SQL-Anweisung aus, bei 3 Datensätzen geht das - aber wenn du ein paar hundert hast, verlierst du viel Zeit. Setze, wie gezeigt, einen SQL-String mit allen Anweisungen zusammen und führe ihn in einem einzigen Aufruf aus: SQL-String: "BEGIN TRANSACTION;Befehl;Befehl;Befehl;COMMIT;"
Und folgender Teil ist auch ohne tiefen Sinn:
[autoit]For $i = 0 To $ListviewCount -1
If $i > 0 Then ReDim $ListViewArray[UBound($ListViewArray, 1) +1][5]
For $k = 0 To 5
If $k > 0 Then ReDim $ListViewArray[UBound($ListViewArray, 1) +1][6]
$ListViewArray[$i][$k] = _GUICtrlListView_GetItemText($ListviewAusgaben, $i, $k)
Next
Next
Wenn du das Array erstellst, ist doch bereits mit "$ListviewCount " die Anzahl der Elemente bekannt - wofür also ReDim verwenden, erstell das Array von Anfang an in der richtigen Größe.
Und das ReDim für Spalten ist übrigens komplett falsch. Ein ReDim in Spalten, angewendet auf ein bestehendes Array birgt die Gefahr des Datenverlusts im Array.
Ohne jetzt ins Detail zu gehen ist mir eines sofort aufgefallen:
[autoit]For $i = 0 To $ListviewCount -1 Step +1
_SQLite_Exec($db_data, "CREATE TABLE tbl_ausgaben (" & '''' & $ListviewAusgabenUeberschrift[$i][0] & ''',''' & $ListviewAusgabenUeberschrift[$i][1] & ''',''' & $ListviewAusgabenUeberschrift[$i][2] & ''',''' & $ListviewAusgabenUeberschrift[$i][3] & ''',''' & $ListviewAusgabenUeberschrift[$i][4] & ''',''' & $ListviewAusgabenUeberschrift[$i][5] & '''' & ");")
Next
Was soll das bedeuten? Du erstellst für JEDE Zeile des Listview immer wieder dieselbe Tabelle mit Namen "tbl_ausgaben"? Das ergibt keinen Sinn.
EDIT:
Mal schnell aus der Hüfte geschossen, wie diese Funktion aussehen sollte:
Func AddToDatabase()
If $ListviewCount < 1 Then Return
Local $sSQL = 'BEGIN TRANSACTION;'
_SQLite_Startup() ; .. UND _SQLite_Shutdown sollten am Programmanfang bzw. -ende stehen, nicht in Funktionen
; == nur, wenn Datei nicht existiert wird die Tabelle erstellt
If Not FileExists($db_data_dir) Then
; == nur den SQL-String erstellen, noch nicht ausführen
$sSQL &= "CREATE TABLE tbl_ausgaben (" & '''' & $ListviewAusgabenUeberschrift[0] & ''',''' & $ListviewAusgabenUeberschrift[1] & ''',''' & $ListviewAusgabenUeberschrift[2] & ''',''' & $ListviewAusgabenUeberschrift[3] & ''',''' & $ListviewAusgabenUeberschrift[4] & ''',''' & $ListviewAusgabenUeberschrift[5] & '''' & ");")
EndIf
; == INSERT zusammenstellen
For $i = 0 To $ListviewCount -1
$sSQL &= "insert into tbl_ausgaben ("
For $k = 0 To 5
$sSQL &= '"' & _GUICtrlListView_GetItemText($ListviewAusgaben, $i, $k) & '",'
Next
$sSQL = StringTrimRight($sSQL, 1) & ");"
Next
$sSQL &= "COMMIT;"
_GUICtrlListView_DeleteAllItems($ListviewAusgaben)
$db_data = _SQLite_Open($db_data_dir)
_SQLite_Exec($db_data, $sSQL)
;~ Local $d = _SQLite_Exec(-1, "Select rowid,* From tbl_ausgaben", "_select") ; _cb will be called for each row
;~ Local $d = _SQLite_Exec(-1, "Select * From tbl_ausgaben", "_select") ; _cb will be called for each row
EndFunc
[/autoit]Auch von mir:
[Blockierte Grafik: http://www.smilies-paradies.de/smileys/geburtstag/animierte-smilies-geburtstag-049.gif]
Ich habe gerade mal die Abstimmungsgrafik angeschaut: Die Summe der ausgewiesenen Prozentanteile ergibt nicht etwa 100 sondern: 204!!
Somit erscheinen dort die 19 Stimmen (von 65 gesamt) für GMAIL mit sagenhaften 59% statt der realen 29%.
Ich weiß nicht was für ein seniler Algorithmus dort hinterlegt wurde - sollte aber dringend geändert werden, damit gibt man sich echt der Lächerlichkeit preis.
Ähhm..
Selbst OT-Themen sollten schon im Umfeld von AutoIt angesiedelt sein oder zumindest irgendeinen Bezug zu AutoIt erahnen lassen.
Mit dieser Frage bist du sicher in einem Photoshop-Forum besser aufgehoben.
Du kannst auch mal die Suche bemühen. Auto-Ersetzen wurde bereits vor Jahren als Bsp.-Skript gepostet.
Hi,
ab und zu braucht man ja ein paar Unicode-Symbole.
Bisher habe ich dann meist Word geöffnet und aus der Symboltabelle rausgesucht.
Hier habe ich mal eine kleine Oberfläche gebastelt mit Symbolbeschreibung und Symbolanzeige für ein paar gängige Symbole. Symbol oder der Codewert läßt sich kopieren.
#Region - TimeStamp
; 2013-01-16 22:47:12 v 0.1
#EndRegion - TimeStamp
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>
Global $aUniCode[101][2] = [ _
["Kleiner Kreis",8226], _
["Drei Punkte",8230], _
["Hoch-Strich",8242], _
["Hoch-Striche",8243], _
["Pfeil links",8592], _
["Pfeil hoch",8593], _
["Pfeil rechts",8594], _
["Pfeil runter",8595], _
["Pfeil links-rechts",8596], _
["Pfeil runter",8629], _
["Pfeil links",8656], _
["Pfeil hoch",8657], _
["Pfeil rechts",8658], _
["Pfeil runter",8659], _
["Pfeil links-rechts",8660], _
["All-Quantor",8704], _
["Teil-Quantor",8706], _
["Einige-Quantor",8707], _
["Leere Menge",8709], _
["Element von",8712], _
["Nicht Element von",8713], _
["enthält Elemente",8715], _
["Logisches Produkt",8719], _
["Logisches Summe",8721], _
["unendlich",8734], _
["Konjunktor",8743], _
["Adjunktor",8744], _
["Intersektion",8745], _
["Union",8746], _
["Similar",8764], _
["annähernd",8773], _
["asymetrisch",8776], _
["ungleich",8800], _
["identisch",8801], _
["kleiner-gleich",8804], _
["größer-gleich",8805], _
["Teilmenge",8834], _
["Übermenge",8835], _
["Keine Teilmenge",8836], _
["Teil- oder ganze Menge",8838], _
["Über- oder ganze Menge",8839], _
["Geöffnete Klammer",8249], _
["Geschlossene Klammer",8250], _
["alpha",945], _
["beta",946], _
["gamma",947], _
["delta",948], _
["epsilon",949], _
["zeta",950], _
["eta",951], _
["theta",952], _
["iota",953], _
["kappa",954], _
["lambda",955], _
["mu",956], _
["nu",957], _
["xi",958], _
["omicron",959], _
["pi",960], _
["rho",961], _
["final sigma",962], _
["sigma",963], _
["tau",964], _
["upsilon",965], _
["phi",966], _
["chi",967], _
["psi",968], _
["omega",969], _
["alpha (Kapital)",913], _
["beta (Kapital)",914], _
["gamma (Kapital)",915], _
["delta (Kapital)",916], _
["epsilon (Kapital)",917], _
["zeta (Kapital)",918], _
["eta (Kapital)",919], _
["theta (Kapital)",920], _
["iota (Kapital)",921], _
["kappa (Kapital)",922], _
["lambda (Kapital)",923], _
["mu (Kapital)",924], _
["nu (Kapital)",925], _
["xi (Kapital)",926], _
["omicron (Kapital)",927], _
["pi (Kapital)",928], _
["rho (Kapital)",929], _
["sigma (Kapital)",931], _
["tau (Kapital)",932], _
["upsilon (Kapital)",933], _
["phi (Kapital)",934], _
["chi (Kapital)",935], _
["psi (Kapital)",936], _
["omega (Kapital)",937], _
["bullet = black small circle",8226], _
["horizontal ellipsis",8230], _
["prime = minutes = feet",8242], _
["double prime = sec. = inch.",8243], _
["overline = spacing overscore",8254], _
["fraction slash",8260], _
["theta symbol",977], _
["upsilon with hook symb.",978], _
["pi symbol",982]]
Global $GUI, $List, $lbUniCode, $btCopy, $inCode, $index, $sData = ''
$GUI = GUICreate("UniCode - Symbole", 345, 400)
$List = GUICtrlCreateList("", 24, 15, 210, 358, BitOR($WS_BORDER, $WS_VSCROLL))
$lbUniCode = GUICtrlCreateLabel("", 260, 15, 60, 60, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 18)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$inCode = GUICtrlCreateInput('', 260, 90, 60, 20, BitOR(0x0001,0x0800)) ; $ES_CENTER, $ES_READONLY
GUICtrlCreateGroup('', 245, 115, 90, 100)
$btCopy = GUICtrlCreateButton('Copy', 260, 130, 60, 20)
$rSymbol = GUICtrlCreateRadio('Symbol', 265, 160, 60)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateRadio('Code', 265, 185, 60)
For $i = 0 To UBound($aUniCode) -1
$sData &= $aUniCode[$i][0] & '|'
Next
GUICtrlSetData($List, StringTrimRight($sData,1))
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
Switch GUIGetMsg()
Case -3
Exit
Case $List
$index = _GUICtrlListBox_GetCurSel($List)
GUICtrlSetData($lbUniCode, ChrW($aUniCode[$index][1]))
GUICtrlSetData($inCode, $aUniCode[$index][1])
Case $btCopy
$index = _GUICtrlListBox_GetCurSel($List)
If $index > -1 Then
If BitAND(GUICtrlRead($rSymbol), $GUI_CHECKED) Then
ClipPut(ChrW($aUniCode[$index][1]))
Else
ClipPut($aUniCode[$index][1])
EndIf
EndIf
EndSwitch
WEnd
OMG, ich verfalle wohl in Senilität. :pinch:
Da ist mir doch in den Formatstring ein Leerzeichen mit reingerutscht - das ist dann natürlich falsch, man sieht es bloß in der Ausgabe schlecht.
