Hallo,
da hat sich ein kleiner Fehler in meinem Beispiel eingeschlichen. Hab es im Source korrigiert.
Thema besteht weiterhin.
Hallo,
da hat sich ein kleiner Fehler in meinem Beispiel eingeschlichen. Hab es im Source korrigiert.
Thema besteht weiterhin.
Danke für den Tipp.
Ich hatte ja den HTML-Teil gepostet. Meiner Ansicht nach sollte es verfügbar sein. Also verstehe ich nicht, warum hier ein Error ausgegeben wird.
Als Error bekomme ich nur "1" zurück über die Msg-Box.
Hallo AutoIt-Freunde.
Bisher hat das Script immer funktioniert, seit kurzem bekomme ich einen Fehler beim Ausführen des Scripts: Error: Subscript used on non-accessible variable.
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <FF.au3>
#Include <String.au3>
_FFConnect(Default, Default,4242)
$feedback=_FFIsConnected()
;Msgbox(64,"titel",$feedback)
;_FFOpenUrl("www.google.de")
$htmltext = _FFReadHtml()
;Msgbox( 64, "Source",$htmltext)
$htmltext = _FFReadHtml()
$irgendeineID=_StringBetween($htmltext,"cms=irgendeineID&id=",'">Jetzt')
Msgbox (64, "irgendeineID", $irgendeineID[0])
Alles anzeigen
Ich würde erwarten, dass ein "i" als Rückgabewerte in der Msgbox erhalte.
Falls sich der Fehler nicht identifzieren lässt, wie könnte ich das mit Regex realisieren?
Naja, das hilft weder mir noch anderen. Kannst du mir nicht einfach sagen, wo genau mein Fehler liegt bzw. welche Zeile ich austauschen muss? Ich habe bereits mehrfach erfolglos nach dem Fehler gesucht...
Gruß
Wo liegt denn der Fehler?
Die Date ist eine ganz normale Textdatei mit folgendem Inhalt:
http://www.google.de
http://.autoit.de
http://www.autoitbot.de
name22: ja habe ich.
Deine Variante geht zur Not, es scheint jetzt zumindest insofern zu funktionieren, dass er kein leeren Zeilen mehr öffnet.
Leider habe ich noch immer das Problem, dass jetzt im Textfeld noch immer ein "Enter" zu viel drinnen steht.
Außerdem: läuft das teil jetzt in der endlossschleife...
Oscar : Bei deiner Version ändert sich nichts, außer, dass die URLs gar nicht mehr geöffnet werden...
Das Problem kann eigentlich nur hier in Zeile 5 liegen, da hier der Ladevorgang abläuft.
; Zeilen des Textes einlesen bis EOF
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$summe = $summe & $line &@LF
WEnd
FileClose($file)
GUICtrlSetData($Edit1, $summe)
$summe = ""
@LF: alles in steht in einer Wurst in der Editbox
@CRLF: alles steht zwar untereinander, aber ein "Enter" zu viel
@CR: alles steht in einer Wurst in der Editbox
ohne jegliches "@": alles steht in einer Wurst in der Editbox
Gibt es ja nicht, dass keiner einen Plan hat.
hat leider auch nichts gebracht...Die URLS werden tortzdem in einer Wurst dargestellt im Editfeld.
hat keiner mehr eine Idee, wo der Fehler liegt?
Hallo!
Danke für die Antworten, wie im ersten Post beschriebn, habe ich diese Variante bereits getestet. Dann steht aber alles in einer Wurst in der Textdatei:
[Blockierte Grafik: http://www.abload.de/img/28-06-201116-37-43xjua.png]
Geändert habe ich das wie gewünscht so:
Case $Laden
[/autoit][autoit][/autoit][autoit]$file = FileOpen($datei, 0)
; Prüfen, ob Datei eingelesen wurde
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
; Zeilen des Textes einlesen bis EOF
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$summe = $summe & $line &@LF
WEnd
FileClose($file)
@Shadow: Ja die Datei existiert schon vorher im folgenden TXT format:
url1.com
url2.com
usw
Noch jemand eine Idee?
Problem 2:
Dir URLs sollen dann geöffnet werden. Seltsamerweise öffnet er die URLs obwohl er das gar nicht machen sollte, nach dem ja jetzt die lange Wurst in der Textbox steht...Ich blick da nicht mehr durch. Schließlich hole ich ja extra den Text nochmal aus der Textbox.
Case $URLsoeffnen
$text = GUICtrlRead($Edit1)
$i = 1
While $i < UBound($neu, 1) - 1
$neu = StringSplit($text, @CRLF)
If $neu[0] = 1 Then
Else
_IENavigate($oIE, "http://anonym.to/?" & "http://" & $neu[$i])
Sleep(10000)
_IELoadWait($oIE)
$i += 1
EndIf
WEnd
[/autoit]Hallo!
Der Tipp mit End of Line bringt folgendes:
[Blockierte Grafik: http://www.abload.de/img/28-06-201108-38-19zjor.png]
Auch würde mich interessieren, wo genau bei meinem Code der Fehler liegt, da es ja davor problemlos ging.
Habe eine Textdatei, in der in jeder Zeile eine URL gespeichert wird.
Durch Laden soll jede einzelne Zeile der URL in das Edit-Feld geladen werden, um dann weiterverabeitet zu werden.
Leider habe ich das Problem, dass nach einem Ladevorgang immer ein Enter offenbar zu viel ist und der Inhalt des Editfelds so aussieht:
[Blockierte Grafik: http://www.abload.de/thumb/27-06-201120-13-579iwo.png]
Ich habe bereits Varianten mit @CR, @LF und @CRLF probiert, allerdings ohne Erfolg.
Beim Speichern funktioniert alles problemlos.
Case $Laden
[/autoit][autoit][/autoit][autoit]$file = FileOpen($datei, 0)
; Prüfen, ob Datei eingelesen wurde
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
; Zeilen des Textes einlesen bis EOF
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$summe = $summe & $line &@CRLF
WEnd
FileClose($file)
Case $Speichern
$file = FileOpen($datei, 2)
; Prüfen, ob Datei eingelesen wurde
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geschrieben werden.")
Exit
EndIf
$text = GUICtrlRead($Edit1)
$i = 1
While $i < UBound($neu, 1) - 1
$neu = StringSplit($text, @LF)
If $neu[0] = 1 Then
Else
FileWriteLine($datei, $neu[$i] & @CRLF)
$i += 1
EndIf
WEnd
FileClose($file)
MsgBox(0, "Info", "Gespeichert")
;Msgbox(0,"Übersicht",$summe)
;GuiCtrlSetData($Edit1,$summe)
Der Code um den es geht:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <ie.au3>
#include <GuiButton.au3>
#include <File.au3>
#include <GuiEdit.au3>
#include <WinAPI.au3>
#include <ButtonConstants.au3>
Global $GUIwidth = @DesktopWidth
Global $GUIheight = @DesktopHeight
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form 1", 1300, 600, 192, 300,$WS_SIZEBOX )
$Edit1 = GUICtrlCreateEdit("", 32, 24, 337, 385)
GUICtrlSetData(-1, "")
$Laden = GUICtrlCreateButton("Laden", 384, 24, 97, 57, 0)
$Speichern = GUICtrlCreateButton("Speichern", 384, 96, 97, 57, 0)
$Loeschen = GUICtrlCreateButton("Löschen", 384, 168, 97, 57, 0)
$URLsoeffnen = GUICtrlCreateButton("URLs öffnen", 384, 240, 97, 57, 0)
$oIE = _IECreateEmbedded()
$URL = GUICtrlCreateInput("", 500, 384, 777, 21)
$Navigieren = GUICtrlCreateButton("Navigieren", 500, 416, 169, 33, 0)
$Menu_Datei = GUICtrlCreateMenu("&Datei")
$Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
$Menu_beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
GUICtrlCreateObj($oIE, 500, 8, 777, 361)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Alles anzeigen
Die Zusätze Global $GUIwidth = @DesktopWidth und Global $GUIheight = @DesktopHeight habe ich auch mal eingefügt, habe aber keinen Unterschied zu vorher feststellen können.
Mit dem Zusatz $WS_SIZEBOX kann man nun die Gui vergrößeren und verkleinern. Alle Elemente passen sich wie gewünscht, automatisch an. Einzig das Webbrowser Element bleibt sturr und lässt sich nicht verändern, was kann ich da machen?
Offtopic:
Wenn ich diesen Code in den Koda FD importiere, wird das Webbrowser Control falsch positioniert, verkleinert oder gar nicht angezeigt. Woran liegt das?
Hi!
Ich habe hier eine einfache Gui, mit einigen Elemente darauf.
Gibt es einen fertigen Code, dem man in Script einfügen kann, damit man der User der Anwendung die Größe der GUI selbst einstellen kann.
Oder muss man mit GUICtrlSetStat und GUICtrlSetResizing alle Elemente manuell anpassen?