Hmm, die Seite anzeigen zu lassen ist ja GAR kein Problem. Das Rausfiltern der benötigten Informationen (Name, Adresse) ist eher das Problem.hutstein schrieb:
title="Details zu diesem Eintrag anzeigen" class="entry">Das ist der Name</a>for(i=0;i<5;i++)
{
string=strstr(string,"</div>"
string ++;
}
string = string +6; // Damit wir hinter das </div> kommenfor(;;)
{
if(*string > "A" && *string < "Z")
break;
else
string ++;
}
Aber das sollte man ja als erstes machen und das Unterprogramm gar nicht weiter ausführen...
Ich passe auch gerade die Rückwärtssuche in meinem Callmonitor an. Mangels besserer Ideen nehme ich für die Adresse momentan alle Zeilen mit '<br/>', die zwischen dem 'class="entry"' und dem nächsten '<input type="hidden"' auftauchen.robot_rap schrieb:
Function RueckwaertssucheDasOertliche(ByVal Ruf_NR As String)
Dim myurl, Anrufer, Adresse As String
Dim oIE As Variant
Dim Oertliche_HTML As String
If Left(Ruf_NR, 2) = "49" Then Ruf_NR = "0" & Right(Ruf_NR, Len(Ruf_NR) - 2)
If Left(Ruf_NR, 3) = "+49" Then Ruf_NR = "0" & Right(Ruf_NR, Len(Ruf_NR) - 3)
'URL-Pfad
myurl = "http://www2.dasoertliche.de/?form_name=search_inv&page=RUECKSUCHE&context=RUECKSUCHE&action=STANDARDSUCHE&la=de&rci=no&ph=" & Ruf_NR
'Falls ein HTML-Error kommt, bzw. kein User gefunden wurde, dann "Unbekannter Teilnehmer"
On Error GoTo KeineRuecksuche
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate myurl
Sleep 300 'Dreihundert Millisekunden
While Not oIE.ReadyState = 4
DoEvents 'Gibt Kontrolle für neues Scheduling an MS Windows zurück
Sleep 100 'Hundert Millisekunden warten
Wend
'HTML-Code an Variable
Oertliche_HTML = oIE.document.Body.InnerHtml
Dim Pos As Long
'HTML-Code hinter dem Namen
Pos = InStr(1, Oertliche_HTML, "</A> <SPAN style=", vbTextCompare)
Anrufer = Left(Oertliche_HTML, Pos - 1)
'alles vor dem Namen löschen
Pos = 1
Do While Pos <> 0
Pos = 1
Pos = InStr(Pos, Anrufer, ">", vbTextCompare)
Anrufer = Right(Anrufer, Len(Anrufer) - Pos)
Loop
'Adresse ermitteln
Oertliche_HTML = Right(Oertliche_HTML, Len(Oertliche_HTML) - Pos)
Pos = InStr(1, Oertliche_HTML, "<BR><INPUT type=hidden", vbTextCompare)
Adresse = Left(Oertliche_HTML, Pos - 1)
Oertliche_HTML = Right(Oertliche_HTML, Len(Oertliche_HTML) - Pos)
'alles vor der Adresse löschen
Pos = 1
Do While Pos <> 0
Pos = 1
Pos = InStr(Pos, Adresse, ">", vbTextCompare)
Adresse = Right(Adresse, Len(Adresse) - Pos)
Loop
' ersetzen
Adresse = Replace$(Adresse, " ", " ", , , vbTextCompare)
'Name und Adresse werden in einem String übergeben
RueckwaertssucheDasOertliche = Anrufer & ";" & Adresse
Exit Function
KeineRuecksuche:
RueckwaertssucheDasOertliche = "Unbekannter Teilnehmer"
End Function
wget "http://www2.dasoertliche.de/?id=3339GS10886550222242399&la=de&form_name=detail&lastFormName=search_inv&ph=$NUMMER&recFrom=1&hitno=99&kgs=11000000&zvo_ok=1&page=TREFFERLISTE&context=TREFFERLISTE&action=TEILNEHMER&orderby=name&ttforderby=rel&la=de&detvert_ok=1" -O $TMPFILE
NAME=`grep detail_top $TMPFILE | sed -e "s/<div class=\"detail_top\">//; s/<\/div> //;"`
#!/bin/sh
#
read agi_request
read agi_language
read agi_channel
read agi_type
read agi_uniqueid
read agi_callerid
read agi_dnid
read agi_rdnis
read agi_context
read agi_extension
read agi_priority
read agi_enhanced
read agi_accountcode
read emptyline
#pfad zum cachefile
#CACHE="/var/spool/asterisk/invsuche_cache"
CACHE="/etc/asterisk/invsuche_cache.conf"
#pfad um das tempfile anzulegen
TMPFILE="/tmp/tmpsuche"
LOG="/var/log/asterisk/anrufliste_log"
if [ "$1" == "" ]; then
NAME="anonymer Anrufer"
DETAILS="Keine details"
else
NUMMER=`echo $1 | sed -e "s/\ //g" -e "s/0049/0/"`
#echo "Suche nach $NUMMER im cache"
NAME=`awk -F '\t' '{ if ($1 == "'$NUMMER'") print $2 }' $CACHE`
DETAILS=`awk -F '\t' '{ if ($1 == "'$NUMMER'") print $3 }' $CACHE`
#echo "Name: $NAME"
#echo "Details: $DETAILS"
if [ "$NAME" == "" ]; then
# echo "Suche nach $NUMMER in [URL]www.dasoertliche.de[/URL]"
#ALT wget "http://www.dasoertliche.de/DB4Web/es/oetb2suche/home.htm?kw_invers=$NUMMER&main=Antwort&s=2" -O $TMPFILE
#ALT NAME=`grep Detailansicht $TMPFILE | sed -e "s/<br>/;/; s/<[^>]*>//g; s/ //g; s/ /_/g; s/_//; s/\t//g"`
wget "http://www2.dasoertliche.de/?id=3339GS10886550222242399&la=de&form_name=detail&lastFormName=search_inv&ph=$NUMMER&recFrom=1&hitno=99&kgs=11000000&zvo_ok=1&page=TREFFERLISTE&context=TREFFERLISTE&action=TEILNEHMER&orderby=name&ttforderby=rel&la=de&detvert_ok=1" -O $TMPFILE
NAME=`grep detail_top $TMPFILE | sed -e "s/<div class=\"detail_top\">//; s/<\/div> //;"`
if [ "$NAME" == "" ]; then
if grep "erweiterte Suche" $TMPFILE > /dev/null; then
NAME="$NUMMER"
DETAILS="Kein Eintrag $2"
fi;
fi;
if [ "$NAME" == "" ]; then
NAME="$NUMMER"
DETAILS="Fehler $2"
else
echo -e "$NUMMER\t$NAME\t$DETAILS" >> $CACHE
fi;
fi
fi
echo -e "`date +%e.%m\ %H:%M ` $NAME " >>$LOG
echo 'SET VARIABLE LONGNAME '"\"$NAME\"" >/dev/stdout
read in
exit 0Die Techniker von das Örtliche arbeiten stark am System. Wenn dir Fehler auffallen, melde die am besten über die Kontaktmöglichkeit. Ich habe das auch gemacht und es wurde der Technik übergeben.KaStro schrieb:
