2
Access 97 Application.FollowHyperlink gibt komische Zeichen aus
Application.FollowHyperlink setzt %20 an die stelle der Leerzeichen
Hallo noch mal.
Ich stehe nun vor folgendem Problem.
Mit einem Button rufe ich eine Webadresse auf, bei der Parameter aus einem Formular mit übergeben werden. Das funktioniert soweit.
Nur übergibt Access an Stellen, wo Leerzeichen stehen die Zeichenfolge %20.
Das möchte ich gern ändern, so daß an diesen Stellen ein + steht.
Wie kann man das machen?
Hallo noch mal.
Ich stehe nun vor folgendem Problem.
Mit einem Button rufe ich eine Webadresse auf, bei der Parameter aus einem Formular mit übergeben werden. Das funktioniert soweit.
Nur übergibt Access an Stellen, wo Leerzeichen stehen die Zeichenfolge %20.
Das möchte ich gern ändern, so daß an diesen Stellen ein + steht.
Wie kann man das machen?
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 43494
Url: https://administrator.de/contentid/43494
Ausgedruckt am: 22.11.2024 um 17:11 Uhr
2 Kommentare
Neuester Kommentar
Vielleicht hilft dir das ja:
Function EntfLeerz(s As String) As String
Dim t As String, i As Integer
t = ""
For i = 1 To Len(s)
If Mid(s, i, 1) <> " " Then t = t + Mid(s, i, 1)
Next
EntfLeerz = t
End Function
Function EntfLeerz(s As String) As String
Dim t As String, i As Integer
t = ""
For i = 1 To Len(s)
If Mid(s, i, 1) <> " " Then t = t + Mid(s, i, 1)
Next
EntfLeerz = t
End Function
...das wird ja immer doller hier...
Man/frau könnte auch gefahrlos formulieren:
Wenn also vorher überflüssiger- und IMHO auch schwachsinnigerweise die Leerzeichen (oder die "%20"-Maskierungen)
durch einfaches Plus "+" ersetzt werden, dann bleibt es auch in der Adressleiste des Browsers als "+" erhalten.
Als Demo den leicht angepassten VBA-Beispielschnipsel aus der Hilfe zu Application.FollowHyperlink:
---> der geht dann auf "Administrator.de/....Hardware+Support", auch laut Addressleiste.
@coppi
Ich denke nicht, dass Dir irgendein User diese Verschönerungsmaßnahme dankt oder es auch nur bemerkt.
P.S. Kannst Du bitte Deinen Beitrag von gestern ("Wie heißt die Funktion Application.FollowHyperlink" oder so ähnlich) als erledigt markieren?
Grüße
Biber
Man/frau könnte auch gefahrlos formulieren:
strWithSpaces="das issn Test"
StrWithoutSpaces=Replace(strWithSpaces," ","+")
'---oder--
StrWithProz20="#Hardware"
StrWithoutProz20=Replace(strWithProz20, "%20","+") Wenn also vorher überflüssiger- und IMHO auch schwachsinnigerweise die Leerzeichen (oder die "%20"-Maskierungen)
durch einfaches Plus "+" ersetzt werden, dann bleibt es auch in der Adressleiste des Browsers als "+" erhalten.
Als Demo den leicht angepassten VBA-Beispielschnipsel aus der Hilfe zu Application.FollowHyperlink:
Function GetUserAddress() As Boolean
Dim strInput As String
On Error GoTo Error_GetUserAddress
strAdminHome = "https://administrator.de/index.php"
SubLinkKIDKAT = "mod=ver&kid=965662209&kat="
strInput = InputBox("Adresse", , "Hardware Support")
Application.FollowHyperlink strAdminHome, , True, , _
SubLinkKIDKAT & Replace(strInput, " ", "+")
GetUserAddress = True
Exit_GetUserAddress:
Exit Function
Error_GetUserAddress:
MsgBox Err & ": " & Err.Description
GetUserAddress = False
Resume Exit_GetUserAddress
End Function@coppi
Ich denke nicht, dass Dir irgendein User diese Verschönerungsmaßnahme dankt oder es auch nur bemerkt.
P.S. Kannst Du bitte Deinen Beitrag von gestern ("Wie heißt die Funktion Application.FollowHyperlink" oder so ähnlich) als erledigt markieren?
Grüße
Biber
