Text in URL umwandeln

[Kuddel]

Moin moin,

ich habe mir ein kleines Auswahlfenster gemacht um in einer Liste zugehörige Dateien zum Dokument auszuwählen.

1. Frage: Wie wandel ich den Text, der ins Feld Dateiverweis geschrieben wird, um in eine URL?

2. Frage: Wie schaffe ich es dass das dazugehörige Programm aufgerufen wird z.B. Word, Excel, etc.?

Hier mal mein Anfang:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim files As Variant
   Dim UIDoc As Notesuidocument
   Dim answer As Integer
   Dim messagelist As String
   Set uidoc = workspace.currentdocument
   
   files = workspace.OpenFileDialog(True, "Datei auswählen","","y:\")
   Forall filelist In files
      messagelist = messagelist & filelist & Chr(10)
   End Forall
   answer% = Messagebox(messagelist, 4+32 +0+0, "Auswahl richtig?")
   If answer=6 Then Call uidoc.fieldsettext ("dateiverweis", messagelist)
End Sub

Gruß

Kuddel

[arcon]

Hi,

1.)
 If answer=6 Then Call uidoc.fieldsettext ("dateiverweis","file:\\" & messagelist)

denke ich mal.

2.)
Mit der Shell Funktion sollte es gehen, einfach das File starten und den rest macht dann das OS.

Dim result As Integer
result = Shell("c:\TEST.doc", 1)

[Kuddel]

Danke,
werde ich gleich mal testen.

Gruß

Kuddel

[Kuddel]

Leider funktioniert das nicht bei Dateinamen die ein Leerzeichen beinhalten wie viele User heutzutage verwenden z.b. "ich habe fertig.doc" ergibt "file\\ich".
Kennt jemand dafür eine Lösung?

Eine Mehrfachausfahl geht auch nicht, aber das kann man noch umgehen.

Gruß

Kuddel

[arcon]

Also, das Problem ist das Notes den Link erstellt und beim Blank aufhört mit der Konvertierung.

Ich weis nicht ob es geht aber probiermal die im Dateilink enthaltenen Blanks durch % zu ersetzten. Soweit ich weis wird im WEB das so gemacht.

Wir haben unsere Arbeitsweise so angepasst das wenn wir Links versenden wollen dies über "Erstellen\Objekt\Objekt aus Datei" und dort einfach eine Windowsverknüpfung erstellen (Durchsuchen, RE Mousetaste, Verknüpfung erstellen) und diese dann Versenden ab dann gab es eigentlich keine Probleme mehr mit Dateilinks.

[Kuddel]

Leider funktioniert das mit den % als Ersatz für die Blanks nicht oder ich mach dabei einen Fehler. Die Lösung mit den Verknüpfungen ist auch nicht das was mir vorschwebt, da ich das ganze recht einfach halten möchte um auch Nutzer mit recht wenig PC-Erfahrung nicht zu verwirren.

Für weitere Ideen wäre ich sehr dankbar.

Gruß

Kuddel

[Glombi]

Ein Leerzeichen muss durch %20 substituiert werden.
20 ist der Heximalwert für Dezimal 32 = Leerzeichen im ASCII-Code

[Kuddel]

Kann man das auch in das Script sauber einbauen?
In der Hilfe bekomme ich nur die Funktion @ReplaceSubString raus.

Gruß

Kuddel

[arcon]

Code

Function ReplaceSubString(strSource As String, strFind As String, strReplace As String) As String
   
   Dim intFindPos As Integer, intStartPos As Integer
   
   'Wenn Orgnialstring oder zu ersetzender Wert leer ist Funktion beenden und Rückgabe Orginalstring
   If (strSource = "") Or (strFind = "") Then 
      ReplaceSubString = strSource
      Exit Function      
   End If  'If strFind = "" Then
   
   intStartPos = 1
   intFindPos = Instr(intStartPos, strSource, strFind)
   
   Do While intFindPos > 0
      strSource = Left$(strSource, intFindPos - 1) + strReplace + Mid$(strSource, intFindPos + Len(strFind))
      intStartPos = intFindPos + Len(strReplace)
      intFindPos = Instr(intStartPos, strSource, strFind)
   Loop
   
   ReplaceSubString = strSource
   
End Function 

[Kuddel]

Danke für Deine Arbeit werde das gleich mal umsetzen.

Gruß

Kuddel