Detail: Google-Suche nach Name1 in AGScript 2.5

17.08.2010 - Google-Suche nach Name1 in AGScript 2.5

Im AG-VIP_SQL wird bekanntlich mit dem Web-Browser-Control gearbeitet. Damit ist es möglich, Webseiten direkt anzeigen zu lassen, ohne ein zusätzliches Fenster öffnen zu müssen. Als nettes Hilfsmittel, gibt es zum Beispiel die Google Suche. Hiermit ist es möglich, zu einer zuvor hinterlegten Startadresse, die aktive Adresse als Zieladresse zu definieren und die fertige Route in dem BrowserControl anzeigen zu lassen.

Wer hingegen noch mit AG-VIP Standard arbeitet, hat das Problem, dass man den Browser in einem separatem Fenster öffnen muss. Hier nun mal ein Hilfsmittel, welches die Google-Suche für AG-Script 2.5 initiiert.

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2010.08.17 Vers 1.00
Option Explicit
Dim strUrl
strUrl = "http://www.google.de/search?hl=de&q=" & UrlRecode(Script.Variable("Feld_Name1"))

Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run "iexplore.exe " & strUrl

Function ReplaceCHR(strText, sChr, nChr)
Dim iPos
'Replace of sChr with nChr
iPos = InStr(1,strText,sChr)
Do While iPos<>0
' Replace text
strText = Mid(strText,1,iPos-1) & nChr & Mid(strText,iPos+Len(sChr))
' Get next string after the current
iPos = InStr(iPos+Len(nChr),strText,sChr)
Loop
ReplaceCHR = strText
End Function

Function UrlRecode(strText)
' Replace of ä
strText=ReplaceCHR(strText, "ä", "%C3%A4")
' Replace of Ä
strText=ReplaceCHR(strText, "Ä", "%C3%84")
' Replace of ö
strText=ReplaceCHR(strText, "ö", "%C3%B6")
' Replace of Ö
strText=ReplaceCHR(strText, "Ö", "%C3%96")
' Replace of ü
strText=ReplaceCHR(strText, "ü", "%C3%BC")
' Replace of Ü
strText=ReplaceCHR(strText, "Ü", "%C3%9C")
' Replace of ß
strText=ReplaceCHR(strText, "ß", "%C3%9F")
' Replace of &
strText=ReplaceCHR(strText, "&", "%26")
' Replace of SPACE
strText=ReplaceCHR(strText, " ", "+")
' Replace of Return
strText=ReplaceCHR(strText, Chr(13), "%0D%0A")
UrlRecode = strText
End Function

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl