Autoit Version: 3.3.6.1
Windows 7 - 64 bit
Beiträge von Ilse
-
-
Hallo TheLuBu,
merci, läuft endlich...
Liebe Grüße
Ilse
-
Hallo,
ich hab's
[autoit]
[/autoit]
_FileWriteFromArray2D(@ScriptDir & "\Testneu.txt", $aTexte)jetzt wird geschrieben!
Seltsam, oder?
Grüße IlseHoffentlich klappt das nun mit dem einlesen!
-
Wenn ich das probiere
[autoit]
[/autoit][autoit][/autoit][autoit]
$Test = _FileWriteFromArray2D($sFile, $aTexte,1)MsgBox(0,"",$test)
[/autoit]erhalte ich -1
Hier mal die Datei v. Bugfix
Spoiler anzeigen
[autoit]
[/autoit]
;==========================================================================================================================================
; Function: _FileWriteFromArray2D($FILEPATH, $ARRAY [, $iROWstart=0 [, $iROWend=0 [, $iCOLstart=0 [, $iCOLend=0 [, $DELIM='|']]]]])
;
; Description: Write 1D/2D array to file, 2D with delimiter between every entry
;
; Parameter(s): $FILEPATH - path/filename of the file to be write
; $ARRAY - array to write from
; optional $iROWstart - start row-index, default 0
; optional $iROWend - end row-index, default Ubound(array)-1
; optional $iCOLstart - start column-index, default 0
; optional $iCOLend - end column-index, default Ubound(array,2)-1
; optional $DELIM - delimiter for 2D-array entries, default '|'
;
; Requirement(s): None
;
; Return Value(s): On Success - Returns -1
; On Failure - Returns 0 and sets @error = 1 (given array is'nt array); @error = 2 (unable to open filepath)
;
; Note: If $iROWstart > $iROWend or $iCOLstart > $iCOLend the values will be swapped among
;
; Author(s): BugFix ( [email='bugfix@autoit.de'][/email] )
;==========================================================================================================================================
Func _FileWriteFromArray2D($FILEPATH, $ARRAY, $iROWstart=0, $iROWend=0, $iCOLstart=0, $iCOLend=0, $DELIM='|')
If Not IsArray($ARRAY) Then
SetError(1)
Return 0
EndIf
Local $Ubound = UBound($ARRAY)
If $iROWend = 0 Then $iROWend = $Ubound-1
Local $fh = FileOpen($FILEPATH, 2)
If $fh = -1 Then
SetError(2)
Return 0
EndIf
Select
Case $iROWstart < 0 Or $iROWstart > $Ubound-1
$iROWstart = 0
ContinueCase
Case $iROWend < 0 Or $iROWend > $Ubound-1
$iROWend = $Ubound-1
ContinueCase
Case $iROWstart > $iROWend
$tmp = $iROWstart
$iROWstart = $iROWend
$iROWend = $tmp
EndSelect
Local $Ubound2nd = UBound($ARRAY, 2)
If @error = 2 Then
For $i = $iROWstart To $iROWend
FileWriteLine($fh, $ARRAY[$i])
Next
Else
If $iCOLend = 0 Then $iCOLend = $Ubound2nd-1
Select
Case $iCOLstart < 0 Or $iCOLstart > $Ubound2nd-1
$iCOLstart = 0
ContinueCase
Case $iCOLend < 0 Or $iCOLend > $Ubound2nd-1
$iCOLend = $Ubound2nd-1
ContinueCase
Case $iCOLstart > $iCOLend
$tmp = $iCOLstart
$iCOLstart = $iCOLend
$iCOLend = $tmp
EndSelect
For $i = $iROWstart To $iROWend
$tmp = ''
For $k = $iCOLstart To $iCOLend
If $k < $iCOLend Then
$tmp &= $ARRAY[$i][$k] & $DELIM
Else
$tmp &= $ARRAY[$i][$k]
EndIf
Next
FileWriteLine($fh, $tmp)
Next
EndIf
FileClose($fh)
Return -1
EndFunc ;==>_FileWriteFromArray2D -
Hallo Tweaky,
danke für den Hinweis.
Ich habe die Funktion eingebaut, aber die Textdatei bleibt leer?
Mein Aufruf sieht so aus:
[autoit]
[/autoit]
_FileWriteFromArray2D($sFile, $aTexte,0)Grüße
Ilse
-
Hallo UEZ,
merci für den Tipp.
Übrigens Fehler beim Start
ERROR: DllCallAddress()Grüße
Ilse
Schließ mal den Thread (bin noch dran)
und sage nochmal Danke
an Eukalyptus und $Var und UEZ -
Hallo,
ich möchte gerne ein Array (mehrere Daten)
in eine Datei speichern.
Erhalte Fehlermeldungen... klappt irgendwie nicht.Hier mal die Infos:
[autoit]
[/autoit]
#include <Array.au3>
#include<File.au3>
Global $sFile = @ScriptDir & "\ilse.txt"Ich lasse mir im Script das Array anzeigen
[autoit]
das als File gespeichert werden soll:
[/autoit]
_ArrayDisplay($aTexte)bis hierhin ist alles ok
sieht so aus:Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. dann habe ich mit _FileWriteFromArray alles mögliche probiert
[autoit]
[/autoit]
_FileWriteFromArray($sFile, $aTexte)aber das klappt alles nicht
Grüße
Ilse
-
Hallo Raupi,
schade...
Grüße
Ilse
-
Hallo,
ich muß eine Nr. auslesen.
Jeder klick auf den Button zeigt mir die Nr. des Controls. OK!Folgendes:
Wenn ich bei dem Button (Beispiel: die Main() Funktion
aktiviere, bekomme ich keine Nummer sondern True.Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>Global $aLabel[1], $Label
[/autoit] [autoit][/autoit] [autoit]
$x = 140
$y = 110$Form1 = GUICreate("Form1", 625, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Button1 = GUICtrlCreateButton("Label Nr", 408, 352, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;_Main()
$aLabel[UBound($aLabel) - 1] = GUICtrlCreateLabel("Test", $x, $y, 146, 89)
$Label = $aLabel[UBound($aLabel) - 1]
Msgbox(0,"$Label",$Label)
EndSwitch
WEndFunc _Main()
[/autoit] [autoit][/autoit] [autoit]
Local $hGUI, $hGraphic, $hBrush, $hFormat, $hFamily, $hFont, $tLayout
Local $sString = "Hello world", $aInfo; Create GUI
[/autoit] [autoit][/autoit] [autoit]
$hGUI = GUICreate("GDI+", 400, 300)
GUISetState(); Draw a string
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI)
$hBrush = _GDIPlus_BrushCreateSolid (0xFF00007F)
$hFormat = _GDIPlus_StringFormatCreate ()
$hFamily = _GDIPlus_FontFamilyCreate ("Arial")
$hFont = _GDIPlus_FontCreate ($hFamily, 12, 2)
$tLayout = _GDIPlus_RectFCreate (140, 110, 0, 0)
$aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic, $sString, $hFont, $tLayout, $hFormat)
$aLabel[UBound($aLabel) - 1] = _GDIPlus_GraphicsDrawStringEx ($hGraphic, $sString, $hFont, $aInfo[0], $hFormat, $hBrush)
$Label = $aLabel[UBound($aLabel) - 1]
Msgbox(0,"$Label GDI",$Label)
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE; Clean up resources
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_FontDispose ($hFont)
_GDIPlus_FontFamilyDispose ($hFamily)
_GDIPlus_StringFormatDispose ($hFormat)
_GDIPlus_BrushDispose ($hBrush)
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_Shutdown ()EndFunc ;==>_Main
[/autoit]Ich glaube hier liegt irgendwo der Fehler
[autoit]
[/autoit]
$aLabel[UBound($aLabel) - 1] = _GDIPlus_GraphicsDrawStringEx ($hGraphic, $sString, $hFont, $aInfo[0], $hFormat, $hBrush)
$Label = $aLabel[UBound($aLabel) - 1]
Msgbox(0,"$Label GDI",$Label)Ich brauche später den Zahlenwert damit ich die Strings v. GDI ermitteln kann.
Zum testen einfach ;_Main() aktivierenGrüße
Ilse
-
Hallo Shadowigor,
danke für die Hilfe
Grüß dich $Var,
merci für das Beispiel mit Kommentaren. Nochmal etwas gelernt.
Bin noch an den Schriften und Farben.
Hoffe das klapptLiebe Grüße
Ilse
-
Hallo Shadowigor,
ich habe immer meine Probleme mit Arrays
Ich habe keine feste Anzahl...von EinträgenKannst du mir vielleicht ein Beispiel mit ID'S machen?
Grüße Ilse -
Hallo,
ich krieg das einfach nicht hin.
1. Ich öffne meine Text-Gui (Text öffnen im Menü)
2. Dort trage ich den Text ein und übergebe ihn an die Form
3. Ich positioniere den Text nun mit den PfeiltastenDas Problem:
Es kommen weitere Texte hinzu.
Diese müsste ich aber nachträglich einzeln anwählen können und in der Farbe/Größe ändern.Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <gdiplus.au3>
#include <misc.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>$x = 140
[/autoit] [autoit][/autoit] [autoit]
$y = 110
Global $afont, $mnText, $Label, $mnFarbe, $mnpFarbe
$Form1 = GUICreate("Form1", 800, 600)_Menue()
[/autoit] [autoit][/autoit] [autoit]$Form2 = GUICreate("Texte", 625, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Edit1 = GUICtrlCreateEdit("", 32, 40, 545, 321, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$btnMnText = GUICtrlCreateButton("Text auf Form", 400, 376, 179, 41, $WS_GROUP)
GUISetState(@SW_SHOW, $Form1)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $mnFarbe
[/autoit] [autoit][/autoit] [autoit]
$afont = _ChooseFont()Case $mnText
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $Form2)Case $btnMnText
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $Form2)
$mnEintrag = GUICtrlRead($Edit1)
GUISetState(@SW_SHOW, $Form1)
$Label = GUICtrlCreateLabel($mnEintrag, $x, $y, 146, 89)EndSwitch
[/autoit] [autoit][/autoit] [autoit]#Region Positionieren Text
[/autoit] [autoit][/autoit] [autoit]
If _IsPressed("25") Then
$x -= 1
Update()
ElseIf _IsPressed("27") Then
$x += 1
Update()
ElseIf _IsPressed("26") Then
$y -= 1
Update()
ElseIf _IsPressed("28") Then
$y += 1
Update()
EndIf#EndRegion Positionieren Text
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
WEndFunc Update()
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetPos($Label, $x, $y)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>UpdateFunc _Menue()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$mnpText = GUICtrlCreateMenu("Text")
[/autoit] [autoit][/autoit] [autoit]
$mnText = GUICtrlCreateMenuItem("öffnen", $mnpText)$mnpFarbe = GUICtrlCreateMenu("Farbe")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$mnFarbe = GUICtrlCreateMenuItem("öffnen", $mnpFarbe)EndFunc ;==>_Menue
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]Die Var $Label muß irgendwie bei jedem anlegen
erweitert werden und ich muß jede $Label editieren.... huhHoffe Ihr habt das ne Idee
Grüße
Ilse
-
Hallo Eukalyptus,
das wäre toll wenn du mir da helfen könntest.
Man sollte den Text frei gestalten können: Farbe, Schriftart...
und direkt eingeben können.
Das Problem ist:
Man müsste alle Texte gleichzeitig sehen und positionieren können.
Beim speichern wären dann Grafik und Text in einer neuen Datei: neuesBild.jpg zusammen.Super wäre es natürlich, wenn man den kpl, Text
mit Positionen speichern und wieder laden könnte.Viele Grüße
Ilse
-
Hallo UEZ,
konnte mich gestern leider nicht mehr melden.
Ich glaube ich kann mein Problem
mit GDI nicht lösen. Ich weiß auch nicht ob das überhaupt machbar ist.Ich möchte eine Grafik laden. (das klappt)
Auf diese Grafik sollen Texte. Auch mehrzeilige und die sollen positioniert
werden und am Schluss mit der Grafik abgespeichert werden.
Aber mit der Auswahl v. Texten über das Menü komme ich
bei den mehrzeiligen an die Grenzen.
D.h. Es müsste z.B.
Textdatei 1 laden- und frei auf der Grafik positionieren
Textdatei 2 dazuladen u.s.w
um and Ende wenn alles positioniert Grafik mit Text speichern.Habe auch schon mit ini porobiert
klappt irgend wie alles nicht mit mehrzeiligen Texten.Liebe Grüße
Ilse
-
Hallo UEZ,
schön daß du dich meldest.
Klappt jetzt super.1000 DANK
Noch ne Frage:
ALso sobald man Return benutzt hat,
gibt es kein zurück mehr.
Ich meine, wenn ich den Menüeintrag erneut wähle,
wäre es super wenn man das noch nachträglich wieder ändern kannAber trotz allem:
KlasseLiebe Grüße
Ilse
-
Hallo zusammen,
ich bin jetzt schon stundenlang an diesem Problem.
hm...wie erklär ich's...Folgendes:
1. Ich öffne ein Bild (ok)
2. Ich wähle den Menüpunkt (ok)
3. Ich drücke die Pfeiltasten zum positionieren des Textes
4. Wenn ich den nächsten Eintrag aus dem Menü wähle und ich positioniere stimmt es nicht mehr.
(Müsste quasie etliche _Update Func und Case...machen...)Das Problem:
Es können mehrere Menüeinträge seinIch möchte das gerne so machen:
1. Text wählen, positionieren
2. Text wählen positionieren u.s.w.
3. Speichern fertigSpoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <gdiplus.au3>
#include <misc.au3>Global $afont[8]
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(FileOpenDialog("Bild auswählen", @ScriptDir, "Bilder (*.jpg)"))
If Not $hImage Then Exit _GDIPlus_Shutdown()
$iW = _GDIPlus_ImageGetWidth($hImage)
$iH = _GDIPlus_ImageGetHeight($hImage)$x = 140
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$y = 110$Form1 = GUICreate("Form1", $iW, $iH)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$MenuItem1 = GUICtrlCreateMenu("Texte und Schriften")
$mnText1 = GUICtrlCreateMenuItem("Hunde", $MenuItem1)
$mnText2 = GUICtrlCreateMenuItem("Katzen", $MenuItem1)
GUISetState()Global $Text[4]
[/autoit] [autoit][/autoit] [autoit]$Text[0] = "Welpen"
[/autoit] [autoit][/autoit] [autoit]
$Text[1] = "Hunde"
$Text[2] = "Katzen"
$Text[3] = "Vögel";_ArrayDisplay($Text)
[/autoit] [autoit][/autoit] [autoit]$hGraphics = _GDIPlus_GraphicsCreateFromHWND($Form1)
[/autoit] [autoit][/autoit] [autoit]
;$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGraphics)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGraphics)
$hCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hCtxt, 2)
DllCall($ghGDIPDll, "uint", "GdipSetTextRenderingHint", "handle", $hCtxt, "int", 4)
_GDIPlus_GraphicsDrawImage($hCtxt, $hImage, 0, 0)_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 0, 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;$aFont = _ChooseFont()
$hBrush = _GDIPlus_BrushCreateSolid(0xFF000000 + $afont[7])
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate($afont[2])
$hFont = _GDIPlus_FontCreate($hFamily, $afont[3], $afont[1])
$tLayout = _GDIPlus_RectFCreate($x, $y, 1000, 1000)
_GDIPlus_GraphicsDrawStringEx($hCtxt, $Text[1], $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 0, 0)
Global $hDLL = DllOpen("user32.dll")While 1
[/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_GDIPlus_ImageSaveToFile($hBitmap, @ScriptDir & "\Ilse.jpg")
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_GraphicsDispose($hCtxt)
_GDIPlus_Shutdown()
DllClose($hDLL)
GUIDelete()
ExitCase $mnText1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_Schrift1()
Case $mnText2
_Schrift2()EndSwitch
[/autoit] [autoit][/autoit] [autoit]
If _IsPressed("25") Then
$x -= 1
DllStructSetData($tLayout, "X", $x)
Update()
ElseIf _IsPressed("27") Then
$x += 1
DllStructSetData($tLayout, "X", $x)
Update()
ElseIf _IsPressed("26") Then
$y -= 1
DllStructSetData($tLayout, "Y", $y)
Update()
ElseIf _IsPressed("28") Then
$y += 1
DllStructSetData($tLayout, "Y", $y)
Update()
EndIf
WEndFunc Update()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;MsgBox(0,"",$x&"-"&$y)
_GDIPlus_GraphicsDrawImage($hCtxt, $hImage, 0, 0)
_GDIPlus_GraphicsDrawStringEx($hCtxt, $Text[1], $hFont, $tLayout, $hFormat, $hBrush)
;_GDIPlus_GraphicsDrawStringEx($hCtxt, $Text2, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 0, 0)
Return 1
EndFunc ;==>UpdateFunc _Schrift1()
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$afont = _ChooseFont()
$hBrush = _GDIPlus_BrushCreateSolid(0xFF000000 + $afont[7])
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate($afont[2])
$hFont = _GDIPlus_FontCreate($hFamily, $afont[3], $afont[1])
$tLayout = _GDIPlus_RectFCreate($x, $y, 1000, 1000)
_GDIPlus_GraphicsDrawStringEx($hCtxt, $Text[1], $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 0, 0)
Global $hDLL = DllOpen("user32.dll")
EndFunc ;==>_Schrift1Func _Schrift2()
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 0, 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
$afont = _ChooseFont()
$hBrush = _GDIPlus_BrushCreateSolid(0xFF000000 + $afont[7])
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate($afont[2])
$hFont = _GDIPlus_FontCreate($hFamily, $afont[3], $afont[1])
$tLayout = _GDIPlus_RectFCreate($x, $y, 1000, 1000)
_GDIPlus_GraphicsDrawStringEx($hCtxt, $Text[2], $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 0, 0)
Global $hDLL = DllOpen("user32.dll")
EndFunc ;==>_Schrift2...hoffe ihr habt da ne Idee
Liebe Grüße
Ilse
-
Hallo,
erstmal merci für die Hilfe.
@BuxBunny
Mit dem Link weiß ich,
ich dachte an Regex um an den Text zu kommen
misterspeed
Das mit den API Funktionen sieht ziemlich heftig aus.
Das ist absolutes Neuland.Hast du da nicht vielleicht ein Beispiel
wie man das in Autoit integrieren kann.Bestimmt kompliziert. Oder?
Liebe Grüße
Ilse
-
Hallo BadBunny,
leider nicht...
Es ist Quellcode da, aber das Ergebnis ist unterschiedlich.
Zum Test:
Schreibe mal bei Google: definiere Hunde
Dann kommt dieser TextZitatWebdefinitionen:
Die Hunde (Canidae) sind eine Familie innerhalb der Überfamilie der
Hundeartigen. Zu den Hunden gehören beispielsweise die Füchse,...Wenn ich nun in der Adresszeile den Code kopiere
und den Quellcode downloade, dann finde ich diesen Text nicht!Alle anderen html Befehle sind da...
Liebe Grüße
Ilse
-
Hallo,
ich möchte gerne folgendes auslesen,
aber der Wert erscheint einfach nicht im Quelltext:Kurze Info:
Ich trage bei Google folgendes ein:
definiere Hundehalter
Den Definitionstext möchte ich gerne auslesen, aber der erscheint nicht im Quellcode
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>
#include <String.au3>
#include <file.au3>$Adresse = Clipget() ; einfach die Adresse nach der Suche in die Zwischenablage kopieren
[/autoit] [autoit][/autoit] [autoit]
$sSource= BinaryToString(InetRead($Adresse, 1))ClipPut($sSource) ; hier sollte nun Definition von... zu finden sein
[/autoit]Woran kann das liegen?
Auch InetGet hat bei mir nicht funktioniert!Liebe Grüße
Ilse
-
Hallo K.K.,
konnte mich gestern nicht mehr melden.
Merci noch für deine Hilfe.Liebe Grüße
Ilse