von komma4 » Sa, 10.07.2010 17:17
Habe mal kurz was gebastelt.
Die
FUNCTION in einem Modul des Formulars speichern und an das Ereignis
MODIFIZIERT des Eingabefeldes "IMDB" Deines Formulars hängen
Code: Alles auswählen
Function de39959( oEvent as Object )
' Version 1 2010-07-10
'
' Prüfung der Eingaben eines Formulars
sMakroName = "de39959"
If oEvent.Source.Text = "" Then
de39959 = TRUE
Exit Function
End If
' benötigter Service und Struktur
URLService = createUnoService( "com.sun.star.util.URLTransformer" )
URLStruktur = createUnoStruct( "com.sun.star.util.URL" )
' Eingabetext
URLStruktur.Complete = oEvent.Source.Text
If URLService.parseStrict( URLStruktur ) = TRUE Then
'MsgBox URLService.getPresentation( URLStruktur, FALSE )
de39959 = TRUE
Else
MsgBox "Die Eingabe wurde nicht als gültige URL erkannt" & _
CHR(10) & _
oEvent.Source.Text, _
16, sMakroName
de39959 = FALSE
Endif
End Function
Es werden noch nicht alle Fehleingaben abgefragt (bspw.
http://x wird akzeptiert) - aber vielleicht reicht Dir das schon?
Suchbegriffe für die Forensuche: validation, Eingabeprüfung, Formular, URL
Habe mal kurz was gebastelt.
Die [color=#008000]FUNCTION[/color] in einem Modul des Formulars speichern und an das Ereignis [color=#0040FF]MODIFIZIERT[/color] des Eingabefeldes "IMDB" Deines Formulars hängen
[code]Function de39959( oEvent as Object )
' Version 1 2010-07-10
'
' Prüfung der Eingaben eines Formulars
sMakroName = "de39959"
If oEvent.Source.Text = "" Then
de39959 = TRUE
Exit Function
End If
' benötigter Service und Struktur
URLService = createUnoService( "com.sun.star.util.URLTransformer" )
URLStruktur = createUnoStruct( "com.sun.star.util.URL" )
' Eingabetext
URLStruktur.Complete = oEvent.Source.Text
If URLService.parseStrict( URLStruktur ) = TRUE Then
'MsgBox URLService.getPresentation( URLStruktur, FALSE )
de39959 = TRUE
Else
MsgBox "Die Eingabe wurde nicht als gültige URL erkannt" & _
CHR(10) & _
oEvent.Source.Text, _
16, sMakroName
de39959 = FALSE
Endif
End Function[/code]
Es werden noch nicht alle Fehleingaben abgefragt (bspw. [color=#0040FF]http://x[/color] wird akzeptiert) - aber vielleicht reicht Dir das schon?
Suchbegriffe für die Forensuche: validation, Eingabeprüfung, Formular, URL