Beiträge von Norman Bates

Hallo zusammen,

es ist wieder soweit ich muss um hilfe fragen weil ich es leider nicht alleine hinbekomme.

Und zwar probiere ich eine Intranetseite zu öffnen was auch soweit funktioniert. Wenn ich dann mit _IELinkClickByText auf den gewünschten Link klicke verändert sich nicht die komplette Seite sondern alles drumherum bleibt nur der Inhalt in der mitte ändert sich.
Wenn ich dann von dieser Seite den Quelltext auslesen will lädt er nur eine Seite runter als wenn ich nicht auf der Seite eingeloggt wäre und nicht den Quelltext der zu dem Zeitpunkt dargestellt wird.

Ich hoffe Ihr könnt mir folgen was ich versuche zu erklären.

Die Seite die ich öffnen will endet auf *.asp

Gruß
Norman

Stimmt hast recht die Überschrift ist nicht sehr ausschlaggebend.

Danke für deine Antwort.

Gruß

Norman

Hallo zusammen,

Ich hoffe einer von euch kann mir helfen. Ich lese mit folgenden Code eine bestimmte Zeile aus einem Quellcode aus und schreibe das wenn Erfolg in eine Excel Sheet.

$String = FileRead("c:\temp\1.htm")

$Result = StringRegExp($String, '(?s)(?:<td align="right" height="20" width="150">.*?<td align="right"><p><b>.*?</b></p></td>.*?<td width="5">.*?</td>.*?<td align="left">.*?<p >)(.*?)(?:</p></td>.*?</tr>.*?<tr valign="top">)', 3)
For $i = 0 To UBound($Result) - 1
If Not StringInStr($Result[$i], "<") And Not StringInStr($Result[$i], ">") Then
_ExcelWriteCell($eExcel, $Result[$i], $a,8)
EndIf
Next

Der Code funktioniert nur liest er das nicht immer aus obwohl der Quellcode gleich aufgebaut ist in dem Bereich wo er das auslesen soll.

Hat einer von euch ne Idee warum er den zweiten nicht ins Sheet schreibt?

Danke und Gruß
Norman

OK aber das Array muss nicht zwingend CMDLine heißen oder das seinen Grund?

Edit: Habe es in der Online Hilfe gefunden

Gruß
Norman

Wow, Danke für deine Antwort.

Könntest Du mir bitte noch das Array erklären was da drin steht oder stehen wird und warum?

Danke und Gruß
Norman

Hallo zusammen,

eine Frage.... Ich habe hier ein VB Script was es mir ermöglicht einen Shortcut von einer Datei zu erstellen.

Ich habe dieses VB Script in meinem Send to folder hinterlegt und wenn ich auf eine X beliebige Datei mit der rechten Maustaste klicke und dann auf Send to und dann auf das Script klicke erstellt er mir eine Verknüpfung von der Datei auf "All Users Desktop".

Ich finde keine möglichkeit das auch mit FileCreateShortcut zu lösen.

Habt Ihr eine Idee?

Gruß Norman

so komplex muss ich es noch nichtmal machen. Ich öffne einfach den Quell Code der Seite mit rechte Maustaste. Nur das muss man doch auch automatisieren können ohne MouseClick.

genau das Problem habe ich auch weil die "neue Seite" sich in einem Frame öffnet. Somit ändert sich nicht die URL.

Gruß

Norman

Hallo zusammen,

ich stehe hier vor einem Problem wo ich nicht weiß ob es so funktioniert wie ich mir das denke.

Ich bin auf einer Seite die mit Frames hat.
Die URL bleibt immer die gleiche nur der Inhalt des Frames ändert sich.

Mir geht es darum das ich aus dem Frame den Quelltext auslese.

Ich öffne das Fenster mit dem Quellcode mit Mousclicks.
Gibt es eine möglichkeit aus diesem fenster direkt mit stringbetween den gewünschten string auszulesen?

Ich habe es schon mit der CLASS von dem Fenster probiert und auch mit dem Fenstertext bzw. Namen hat aber alles nicht funktioniert.

Gibt es eine möglichkeit das so zu lösen wie ich mir das vorstelle?
Über jeden Lösungsansatz bin ich dankbar.

Gruß
Norman

EDIT: Hab es selber rausgefunden

@ Xenobiologist

Das sieht schonmal Gut aus. Ich probiere es mal in meinen Code zu übernehmen

EDIT:

Hat einer einen Lösungsansatz. Ich bekomme es auf anhieb nicht hin.

So sieht mein Code aus:

#include<Excel.au3>
$excel = _ExcelBookOpen("C:\Users\" & @Username &"\Desktop\Book1.xls")
For $i = 1 To 1
_ExcelSheetActivate($excel,"Sheet2")
$aread_cell = _ExcelReadCell ($excel,$i,1)
;MsgBox(0,"Tabelle 2", "Cell " &$i & " Inhalt = " & $aread_cell)
For $j = 2 to 108016
_ExcelSheetActivate($excel,"Sheet1")
$bread_cell = _ExcelReadCell ($excel,$j,7)
;MsgBox(0,"Tabelle 1", "Cell " &$j & " Inhalt = " & $bread_cell)
If $aread_cell = $bread_cell Then
_ExcelSheetActivate($excel,"Sheet2")
;MsgBox(0, "", "$aread_cell = $bread_cell")
$excel.cells($i,1).Interior.ColorIndex = 3
EndIf
Next
Next

Ich guck mir das mal an. Ich bezweifel aber das ich das hinbekomme.

Trotzdem danke für deine Hilfe

Gruß Norman

Zitat von water

Du brauchst die Excel-Datei nicht in eine Datenbank zu exportieren um SQL-Befehle abzusetzen.
Excel kann per ADO direkt als Datenbank angesprochen werden.
Details liefere ich, falls Du diesen Ansatz weiterverfolgen möchtest.

Wäre super wenn Du da einen Lösungsansatz hast.

Gruß

Norman

Hallo zusammen,

wie die Überschrift schon sagt möchte ich ca. 100000 Excel Zellen prüfen.

Aus Tabelle2 wird Zelle1 gelesen und mit Tabelle1 Zelle1 bis 100000 in Spalte A verglichen usw.

Nur mit ner For Schleife dauert das ja eeeewig.

Gibt es da ne schnellere Lösung?

Gruß
Norman

Ich blicke gerade selber nicht durch. :wacko:

Wenn ich den Dateinamen in dem Script manuell ändere funktioniert es. Nur wenn ich es in es in eine Schleife einbaue nicht.

EDIT:

Habe es gerade rausgefunden. Verwende jetzt nicht mehr $array.

Gruß
Norman

da bin ich wieder

Nun habe ich hoffentlich eine abschliessende Frage.
In der ersten For schleife soll erst die 1.htm Datei eingelsen ausgewertet werden dann die 2.htm datei usw.

_ArrayDisplay($aResult) zeigt mir auch alle 3 Dateien an nur werden diese nicht in die Console geschrieben sondern immer nur das erste.
Was mache ich hier falsch?

Gruß
Norman

#include <array.au3>
#include <string.au3>
#include <Excel.au3>

Global $array, $aResult, $file, $i, $sString, $sText, $sText2

global $array[11]

For $s = 1 to 3
$sText = FileReadLine("C:\Users\"& @UserName &"\Documents\Folder\"& $s &".htm",82)
$Pob_text = FileReadLine("C:\Users\"& @UserName &"\Documents\Folder\"& $s &".htm",82)
$plz_ort = FileReadLine("C:\Users\"& @UserName &"\Documents\Folder\"& $s &".htm",82)
$sText &= FileReadLine("C:\Users\"& @UserName &"\Documents\Folder\"& $s &".htm",83)
$tText = FileReadLine("C:\Users\"& @UserName &"\Documents\Folder\"& $s &".htm",84)

$aResult = StringRegExp($sText, '(?s)"fname">(.*?)<(?:.*?)"spotft">(.*?)<br>(?:.*?)Tel:(.+?)<br>', 1, 1)

$_Pob = StringRegExp($Pob_text, '"spotft">(.*?)POB(.*?)(?:.*?)', 1, 3)
$_ort = StringRegExp($plz_ort, '(?s)(?:.*?), POB (?:.*?), (.*?)&nbsp;(.*?)<br>', 1, 3)

_ArrayDisplay($_ort)
_ArrayDisplay($aResult)

$strasse = StringSplit($aResult[1], ",",1)

_ArrayAdd($array,$aResult[0])
_ArrayAdd($array,"")
For $i = 0 To UBound ($strasse)-1
_ArrayAdd($array,$strasse[$i])
Next

If IsArray($_ort) Then
ConsoleWrite($array[11] & @CRLF)
ConsoleWrite($array[14] & @CRLF)
ConsoleWrite($aResult[2] & @CRLF)
ConsoleWrite($_ort[0] & " ")
ConsoleWrite($_ort[1]& @CRLF)

Else
ConsoleWrite($array[11] & @CRLF)
ConsoleWrite($array[14] & @CRLF)
ConsoleWrite($aResult[2] & @CRLF)

EndIf
next

Danke erstmal für deine Hilfe.

Ich werde wahrscheinlich die eine oder andere Frage noch haben....bis dahin

Gruß

Norman

Danke.

So leid es mir tut aber ich möchte gern noch was fragen.
Ich möchte es ja auch verstehen

Zu dieser Zeile

$aResult = StringRegExp($sText, '(?s)"fname">(.*?)<(?:.*?)"spotft">(.*?)<br>(?:.*?)Tel:(.+?)<br>', 1, 1)

(?:.*?) Erstellt eine "Zeile" im Array bzw. erstellt den Eintrag im Array in einer neue Zeile?
Habe ich das so richtig verstanden?

Wenn ja wo und wie muss ich das setzen um PLZ und Ort in die nächste Zeile im Array zu schreiben?
Momentan sieht es folgendermaßen aus:
Strasse, PLZ &nbsp; Ort

Danke und Gruß
Norman

eine klitzekleine Frage habe ich noch

Wie bekomme ich das

 

zwischen PLZ und Ort entfernt?

Gruß

Norman

Geil - o - mat. Das sieht schonmal sehr gut aus.

Ich habe jetzt einfach mal die htm datei hochgeladen um die es geht.
Musste die jpg nennen ... einfach in test.htm umbennen.