Beiträge von Ilse

Hallo mal wieder,

ich kämpfe mal wieder den ganzen Morgen
mit mir selbst. Jetzt muß ich mich doch melden.

Also:
ich habe es geschafft mit Arrays Controls anzulegen (Checkboxen)
Das klappt soweit prima.
Dann habe ich einen Button "Select all" gemacht
und das klappt nicht.
Ich möchte also alle Controls anwählen und abwählen.

Zum Nachvollziehen:
Ich verwende die Namen aus einer ini. Die Controls
werden angelegt.

Spoiler anzeigen

[Titel]
1=Petra
2=Klaus
3=Lissi
4=Norbert

Hier mal mein Code

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$Gui = GUICreate("Namen", 701, 571, 208, 178)
$SelectAll = GUICtrlCreateButton("Select all", 568, 424, 75, 25)
;$Alle = GUICtrlCreateButton("Alle", 304, 232, 75, 25)
GUISetState(@SW_SHOW)

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

$var = IniReadSection(@ScriptDir & '\meine.ini',"Titel")

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

If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file.")
EndIf

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

;Local $aktiv = True
Local $arControl[15]
#region Ausrichtung Controls
$Startoben = 50
$Startlinks = 70
$progbarLinks = 170
$oben = $Startoben
$ctrlLinks = $Startlinks
#endregion Ausrichtung Controls
For $i = 1 to 14
$oben += "25"
$arControl[$i] = GUICtrlCreateCheckbox($var[$i][1],$ctrlLinks,$oben)
$arControl[$i]= GUICtrlCreateProgress($progbarLinks, $oben, 70, 20)
next

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $SelectAll
for $i = 1 to UBound($arControl)-1
;$Test = Guictrlread($arControl[$i])
GUICtrlSetState ($arControl[$i],$gui_checked)
;MsgBox(0,$i,$arControl[$i])
next
EndSwitch
WEnd

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

Case $SelectAll .... das stimmt was nicht!

Liebe Grüße
Ilse

Hallo Progandy,

merci nochmal, auch für deinen AGB Hinweis!
Ich habe und werde auch in Zukunft nichts mit Reisen... zu tun haben.
Es sei denn ich mach mal Urlaub.
War einfach nur ein Beispiel.
Bei manchen Combifeldern benötige ich z.B. Inhalte (ähnlich wie bei Opodo)
z.B. Hunderassen, Tiernamen...
Ob man so etwas darf, werd ich mir gleich mal ansehen.

Liebe Grüße
Ilse

Hallo Progandy,

hm..das ist leider nicht so.
Ich habe mal irgend eine Seite genommen:
Da wir bald alle Urlaubsreif sind...

[autoit]

http://www.opodo.de/pauschalreisen…lreisen-de.html

[/autoit]

Der Quellcode enthält nach dem download z.B. keinen tbody
Da würden aber die Inhalte stehen die ich z.B. haben möchte.
Bräuchte ich z.B. die Info "Nahstrecke" im Feld Reiseziel
dann würde ich im Quelltext nichts finden!

Bei diesem Beispiel müsste ich hier suchen: <div id="suchpod">

Ich kann zwar nach <div id="suchpod"> im Quelltext suchen
aber alle Inhalte hierzu wie z.B. Nahstrecke...fehlen!
An diese kommt man nur über Handarbeit, Tools...ran.

Es werden nur die Formfelder im Quellcode gezeigt.
Und das würde bedeuten: Inetread downloaded nicht komplett. Oder?

Liebe Grüße
Ilse

Hallo Kra88,

merci für deine Erklärung. Alles verstanden..!
Ich konnte das Problem mit jedem Beispiel lösen.
Super und Danke nochmal!

Bis zum nächsten mal

Grüße
Ilse

Hallo Progandy,

hm..., nicht nur tbody, sondern auch select u.vm
D.h. diesen Vorgang kann man so nicht automatisieren?
Kein Download des Quelltextes mit allen Angaben?

Das würde also viel Handarbeit je Seite mit Firebug & Co...bedeuten.

Oder hast du da noch eine andere Idee?

Liebe Grüße
Ilse

Guten Morgen zusammen,

ich habe folgendes Problem:
Der Quellcode der heruntergeladen wird, ist bei manchen Seiten nicht komplett!

Download-Beispiel

[autoit]

#include <array.au3>
#include <String.au3>

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

$sSource= BinaryToString(inetread("http://www.herz-fuer-tiere.de/kleinanzeigen/private-anzeige-aufgeben.html",8),4)
MsgBox(0,"",$sSource)
ClipPut($sSource)

[/autoit]

Das sieht soweit ok aus,
ist es aber nicht!
Diese Seite hat z.B. Tabellenbereiche/Formularbereiche u.v.m. z.B. <tbody>
und die sind im Quelltext der downgeloaded wurde nicht enthalten! Wieso?

Das wäre z.B. der Quelltext v. <tbody> (der Formularbereich der Linkseite) der nicht downgeloaded wird!

Spoiler anzeigen

<tbody><tr bgcolor="#f1f1f1">
<td valign="middle" align="right" colspan="3" class="fett">Schritt 1 von 3</td>
</tr>
<tr bgcolor="#f1f1f1">
<td valign="middle" align="left" colspan="3" class="fett">Kleinanzeige aufgeben:</td>
</tr>
<tr bgcolor="#f1f1f1">
<td valign="middle" align="left" colspan="3" class="fett">Mit Stern ( * ) gekennzeichnete Felder müssen ausgefüllt werden</td>
</tr>
<tr>
<td width="222" valign="middle" bgcolor="#f1f1f1" align="left" class="normal">Vorname *</td>
<td bgcolor="#f1f1f1" colspan="2" class="normal">Name *</td>
</tr>
<tr align="left">
<td width="222" valign="middle" bgcolor="#f1f1f1" class="normal">
<input type="text" value="" class="normal" size="15" name="firstName">
</td>
<td valign="middle" bgcolor="#f1f1f1" class="normal" colspan="2">
<input type="text" value="" class="normal" size="15" name="lastName">
</td>
</tr>
<tr bgcolor="#f1f1f1" align="left">
<td width="222" valign="middle" class="normal">Straße/Hausnummer *</td>
<td width="35" valign="middle" class="normal">PLZ *</td>
<td width="163" valign="middle" class="normal">Ort *</td>
</tr>
<tr align="left">
<td width="222" valign="middle" bgcolor="#f1f1f1" class="normal">
<input type="text" value="" class="normal" size="30" name="street">
</td>
<td width="35" valign="middle" bgcolor="#f1f1f1" class="normal">
<input type="text" value="" class="normal" size="5" name="zip">
</td>
<td width="163" valign="middle" bgcolor="#f1f1f1" class="normal">
<input type="text" value="" class="normal" size="10" name="city">
</td>
</tr>
<tr bgcolor="#f1f1f1" align="left">
<td valign="middle" class="normal">Telefonnummer * </td>

<td valign="middle" class="normal" colspan="2">Soll die Telefonnummer auf
der Webseite angezeigt werden?</td>
</tr>
<tr align="left">
<td bgcolor="#f1f1f1" class="normal" colspan="valign=&quot;middle&quot;">
<input type="text" value="" class="normal" size="25" name="telefon">
</td>
<td valign="middle" bgcolor="#f1f1f1" class="normal" colspan="2">
<input type="radio" value="1" name="showTel">Ja <input type="radio" checked="" value="0" name="showTel"> Nein
</td>
</tr>

<tr bgcolor="#f1f1f1" align="left">
<td valign="middle" class="normal">E-Mail * </td>

<td valign="middle" class="normal" colspan="2">Soll die E-Mail Adresse auf
der Webseite angezeigt werden?</td>
</tr>
<tr align="left">
<td valign="middle" bgcolor="#f1f1f1" class="normal">
<input type="text" value="" class="normal" size="25" name="email">
</td>
<td valign="middle" bgcolor="#f1f1f1" class="normal" colspan="2">
<input type="radio" value="1" name="showEmail">Ja <input type="radio" checked="" value="0" name="showEmail"> Nein
</td>
</tr>

<tr bgcolor="#f1f1f1" align="left">
<td valign="middle" class="normal" colspan="3">Die Anzeige wird geschaltet:</td>
</tr>
<tr align="left">
<td valign="middle" bgcolor="#f1f1f1" class="normal" colspan="3">
<input type="checkbox" value="1" name="adsOnline"> auf der Webseite&nbsp;
<input type="checkbox" value="1" name="adsOffline"> Im Heft
</td>
</tr>
<tr bgcolor="#f1f1f1" align="center">
<td valign="middle" colspan="3">
<input width="76" vspace="2" type="image" height="20" border="0" src="/kleinanzeigen/content/ka_weiter.gif" name="saveAd">
</td>
</tr>
</tbody>

Kann man irgendwie des gesamten Quelltext/incl. Frames...downloaden?

Grüße
Ilse

Guten Morgen zusammen,

als erstes habe ich mich heute Morgen
riesig über eure Beiträge gefreut.

Klappt jetzt alles prima.

Aber ich hätte noch eine Frage an Seubo
(einfach nur damit ich es verstehe)
Frage1 RegEx

Spoiler anzeigen

Diesen RegEx Befehl hatte ich bisher noch nicht verwendet!
Wofür steht \Q und \E?
'\Q<option value="\E'

Heißt das, muß man mit \Q die Suche einleiten und mit \E abschliesen?
Ich hätte das so probiert '<option\s\w+'

Frage2 Loop

Spoiler anzeigen

Wieso läuft dein Loop in zweierschritten durch?
For $i = 0 To UBound($aArray) - 1 Step 2

Hier nochmal der Code v. Seubo

Spoiler anzeigen

Local $sText, $aArray, $sString
$sText = _
'Hier steht Text<option value="40">Hunde</option> Hier steht Text' & @CRLF & _
'Hier steht Text<option value="19">Katzen</option>Hier steht Text' & @CRLF & _
'Hier steht Text<option value="43">Vögel</option>Hier steht Text ; wird nicht angezeigt!!!' & @CRLF

$aArray = StringRegExp($sText, _
'\Q<option value="\E' & _ ; sucht '<option value="'
'(\d+)' & _ ; dann nur zahlen ( -> ins Array aufnehmen )
'\Q">\E' & _ ; jetzt '">'
'([^<]+)' & _ ; dann alles bis zum < ( -> ins Array )
'\Q</option>\E' _ ; und wieder '</option>' als Abschluss
, 3)

For $i = 0 To UBound($aArray) - 1 Step 2
$sString &= '$' & $aArray[$i + 1] & ' = "' & $aArray[$i] & '"' & @CRLF
Next

MsgBox(0,"",$sString)

Nochmal ein ganz dickes Lob an alle Helfer

Liebe Grüße
Ilse

Hallo kra88,

bin froh daß du dich wieder meldest.
Das war's leider auch nicht.

Ich erkläre das ganze nochmal Schritt für Schritt

1. Es gibt einen Quelltext der ungefähr so aussieht (Zwischenablage)

Spoiler anzeigen

Hier steht Text ; Hier steht Text ; Hier steht Text ; Hier steht Text ;
Hier steht Text<option value="40">Hunde</option> Hier steht Text
Hier steht Text<option value="19">Katzen</option>Hier steht Text
Hier steht Text<option value="43">Vögel</option>Hier steht Text ;
Hier steht Text ; Hier steht Text ; Hier steht Text ; Hier steht Text ;

2. Diese Werte muß ich später in eine Textdatei (Editfeld) scheiben
das Editfeld sollte am Ende (nach der RegEx-Bearbeitung) dann so aussehen:

Spoiler anzeigen

$Hunde = "40"
$Katzen = "19"
$Vögel = "43"

Der Weg:
Ich koiere den Quelltext in die Zwischenablage!
Ich benutze RegEx um die Nummern und Namen zu erhalten. Das klappt ja!
Das Problem ist: Wie kann ich die Werte in das Editfeld schreiben
und zwar Zeilenweise?
Die Frage wäre: Wie konvertiere ich den Quelltext (Zwischenablage) zu diesem Ergebnis:

Spoiler anzeigen

$Hunde = "40"
$Katzen = "19"
$Vögel = "43"

Ich starte das Script und das kommt dabei heraus!
Ich hoffe ich habe es einigermaßen erklären können.

Das ist der Regex Code (ohne das Ergebnis...)

Spoiler anzeigen

#include <Array.au3>
ClipGet()
$sSource= ClipGet()
$ahunde = StringRegExp($sSource,'value="([^"]*)">Hunde',3)
$akatze = StringRegExp($sSource,'value="([^"]*)">Katzen',3)
$avoegel = StringRegExp($sSource,'value="([^"]*)">Vögel',3)
$atest = StringRegExp($sSource,'value="([^"]*)',3)
_arraydisplay($ahunde,"Hunde")
_arraydisplay($akatze,"katzen")
_arraydisplay($avoegel,"Vögel")

Viele Grüße
Ilse

Hallo Kra88,

erstmal merci, das mit RegEx ist ok.
Ich muß aber die Werte zusammen erhalten.
Deine Liste sieht z.B. so aus:

[autoit]

40
Hunde
19
Katzen
43
Vögel

[/autoit]

Es sollte aber alles in einer Zeile sein
also so:

[autoit]

40 Hunde
19 Katzen
43 Vögel

[/autoit]

und das Endergebnis muß umgewandelt werden, also so:

[autoit]

$Hunde = "40"
$Katzen = "19"
$Vögel = "43"

[/autoit]

da muß ich irgendwie hinkommen.
Genau das ist das Problem

Liebe Grüße
Ilse

Hallo Chip,

grüße dich. War in Urlaub...
Ich kann glaube ich nochmal von vorne Anfangen

hm.. dein Script zeigt den Error Subscript used with non-Array variable.:

Aber folgendes:
Ich möchte es unbedingt mit RegEx machen.
Muß viel mit Quelltexten machen und habe mich deßhalb
auch schon sehr viel mit RegEx beschäftigt. Ich finde RegEx super und sehr mächtig
wenn man Texte bearbeiten muß.

Ich stolpere halt immer wieder über die Arrays.
Kannst du mir vielleicht ein RegEx Beispiel machen?

[autoit]

#include <String.au3>
#include <Array.au3>
$sSource= ClipGet()
$array = StringSplit($sSource,@CR,2)

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

For $wert In $array
$zwischen = _StringBetween($wert,'<option value="','</option>')
$end = StringSplit($zwischen[0],'">',2)
$final = "$" & $end[2] & ' = "' & $end[0] & '"'
MsgBox(0,"",$final)
Next

[/autoit]

Liebe Grüße
Ilse

Hallo hightower,

merci für den Tipp.
Weißt du auch wie man alle Werte in dem Array anzeigen lassen kann?

Ich meine daß ich einen RegEx Befehl habe

[autoit]

$alinks = StringRegExp($sSource,'"(\d+)">(\w+)<',3)

[/autoit]

Das Ergebnis sollte so aussehen:
$Hunde = "40"
$Katzen = "19"

Grüße
Ilse

Hallo,

ein kleines Problem mit RegEx.
Es werden nicht alle Einträge gezeigt!

Bitte diesen Text in die Zwischenablage zum Testen kopieren

[autoit]

Hier steht Text<option value="40">Hunde</option> Hier steht Text
Hier steht Text<option value="19">Katzen</option>Hier steht Text
Hier steht Text<option value="43">Vögel</option>Hier steht Text ; wird nicht angezeigt!!!

[/autoit]

Mein Code

[autoit]

#include <Array.au3>
ClipGet()
$sSource= ClipGet()
$alinks = StringRegExp($sSource,'value="(\d+)"',3)
_ArrayDisplay($alinks,"alle Nummern")

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

$alinks2 = StringRegExp($sSource,'>(\w+)<',3)
_ArrayDisplay($alinks2,"alle Tiere")

[/autoit]

Zitat

Eine Idee woran das liegen könnte?
Habe ein ö drin, ohne ö klappt das !!!

Und noch ne Frage:

Wie kann man (2 D Array?) die Werte alle anzeigen?

[autoit]

#include <Array.au3>
ClipGet()
$sSource= ClipGet()

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

$alinks = StringRegExp($sSource,'value="(\d+)>(\w+)<',3)
_ArrayDisplay($alinks,"alle Werte")

[/autoit]

das klappt leider nicht.

Liebe Grüße
Ilse

Guten Morgen zusammen,

brauch mal wieder Hilfe.
Mein Beispiel sollte eigentlich wie eine Textverarbeitung
funktionieren, nur mit dem Präfix *.ini

Datei öffnen klappt, aber dann komme ich nicht weiter.

Also:
Neu, falls diese ini existiert Fragen "Überschreiben?" dann Datei erzeugen und im Feld anzeigen!
Schreibe ich was in das Feld und speichere es ab, dann muß ich
immer von Hand .ini dahinter setzen...das stimmt auch was nicht.

Bitte schaut mal drüber

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 1004, 695, 329, 101)
$Anzeige = GUICtrlCreateEdit("", 408, 44, 565, 633)
GUICtrlSetData(-1, "")
$btnNeu = GUICtrlCreateButton("Neu", 36, 48, 75, 25)
$btnspeichern = GUICtrlCreateButton("speichern", 120, 48, 75, 25)
$btnspeichernUnter = GUICtrlCreateButton("speichern unter", 204, 48, 91, 25)
$btnoeffnen = GUICtrlCreateButton("öffnen", 300, 48, 75, 25)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $btnNeu
Case $btnspeichern
$message = "Speichern unter ..."
$saveCode = FileSaveDialog($message, @ScriptDir & "\", "Code (*.ini)", 1 + 4)
If @error Then
MsgBox(4096, "", "Keine Datei gewählt")
Else
FileWrite($saveCode, GUICtrlRead($Anzeige))

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

EndIf
Case $btnspeichernUnter
Case $btnoeffnen
$message = "Bitte Code auswählen."
$openCode = FileOpenDialog($message, @ScriptDir & "\", "Code (*.ini)", 1 + 4)
If @error Then
MsgBox(4096, "", "Keine Datei gewählt")
Else
$aCodetxt = FileRead($openCode)

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

$Quelle1 = GUICtrlSetData($Anzeige, $aCodetxt)

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

EndIf
EndSwitch
WEnd

[/autoit]

Liebe Grüße
Ilse

Hallo Raupi,

..das hatte ich verwechselt, falsch verstanden...

StringRegExp gibt ein Array zurück!!!!!!!
Zum Anzeigen benutzt man _ArrayDisplay.

oh Gott....

Ich brauch jetzt ne Pause!

DANKE!

Liebe Grüße
Ilse

i2c
Danke, das klappt!
Wieso verwendest du das:

Spoiler anzeigen

$sSource= BinaryToString(inetread("http://www.hunde.de",8),4)
statt
InetGet("http://www.hunde.de", @ScriptDir & "\hunde.htm", 1)

Raupi ,
Ich ignoriere doch nicht...
ich probiere...

Spoiler anzeigen

#include <array.au3>
#include <String.au3>
#include <file.au3>

InetGet("http://www.hunde.de", @ScriptDir & "\hunde.htm", 1)

$Test = FileRead(@ScriptDir&"\"&"hunde.htm")
Msgbox (0,"Die Quelldatei",$Test)
$Ergebnis = StringRegExp($Test,"href=(.*)",3)

Msgbox (0,"Das Ergebnis",$Ergebnis)

Diesmal ohne Arrays ...
Wieso diesmal nicht?

Ilse
@ Raupi...Jetzt sei wieder nett zu mir!

also,
ich suche im Quelltext diese Adressen

<a href="http://www.katzen.de" target="_blank" class="

Spoiler anzeigen

http://www.haustiere.de
http://www.katzen.de

Der Code

[autoit]

#include <array.au3>
#include <String.au3>
#include <file.au3>
Dim $aQuelltext
Dim $aArray
InetGet("http://www.hunde.de", @ScriptDir & "\hunde.htm", 1)

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

If Not _FileReadToArray("hunde.htm", $aQuelltext) Then
MsgBox(4096, "Error", " Error:" & @error)
Exit
EndIf
_ArrayDisplay($aQuelltext) ; Das Original
$Ergebnis = StringRegExp($aQuelltext,'href=(.*)" target',3)

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

Msgbox (0,"",$Ergebnis)

[/autoit]

...kann jetzt nicht mehr klar denken!

Ilse

@alle

Könnt Ihr bitte nochmal drüberschaun?

[autoit]

#include <array.au3>
#include <String.au3>
#include <file.au3>
Dim $aQuelltext
Dim $aArray
InetGet("http://www.hunde.de", @ScriptDir & "\hunde.htm", 1)

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

If Not _FileReadToArray("hunde.htm", $aQuelltext) Then
MsgBox(4096, "Error", " Error:" & @error)
Exit
EndIf
_ArrayDisplay($aQuelltext) ; Das Original
$aArray = StringRegExp($aQuelltext,"href=(.*)",3)

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

_ArrayDisplay($aArray) ; Die Bearbeitung zeigt kein Ergebnis

[/autoit]

Ilse

Hallo zusammen,

jetzt habe ich mehrere Stunden regEx hinter mir.
Alles noch etwas wackelig, aber egal.

Aber jetzt brauche ich mal wieder Hilfe:
(Text einfach in die Zwischenablage kopieren)
Meine Gehversuche: (simples Beispiel)

[autoit]

#include <array.au3>
;Zwischenablage = "hier steht Text <p>Dackel</p><p>Pudel</p><p>Collie</p> id="HundeForm"
;Zwischenablage = "hier steht Text <p>Terrier</p><p>Dogge</p><p>Spitz</p> id="HundeForm"
$string = ClipGet()

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

$aArray = StringRegExp($string,"<p>(.*)</p>",3)
_ArrayDisplay($aArray)

[/autoit]

Meine Frage:
Wie kann man in der RegExSuche nach dem Suchergebnis einen Zeilenumbruch machen?
Mit \n oder \r oder @LF bin ich nicht weitergekommen.

So sollte es aussehen:

Spoiler anzeigen

Dackel
Pudel
Collie...

Hoffe die Profis haben etwas Einsehen mit mir!

Grüße
Ilse

He SEuBo,

bin schon fleißig dran am lernen.

Liebe Grüße
Ilse

Prima,

werd ich mir mal ansehen.

Danke nochmal für eure Ratschläge

Liebe Grüße
Ilse