Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_URLtoUnicode
Holt die Daten der URL und gibt diese als Unicode kodierten String zurück.
Dim s As String
Dim z As Variant
s = CNCL_URLtoUnicode("http://www.denic.de/robots.txt")
z = Split(s, Chr(10))
ForAll wert In z
Print wert
End ForAll
Ausgabe:
User-agent: Slurp
Disallow: /
User-agent: *
Disallow: /*tx_cal_controller
Disallow: /faq-single/
Disallow: /de/faq-single/
Disallow: /en/faq-single/