StrEndsWith                              (XAPI2000)

Deklaration
Function StrEndsWith(ByVal SubStr As String, S As String) As Boolean

Beskrivning
Testar om strängen S avslutas med substrängen SubStr.

Returvärden
Funktionen returnerar True om strängen S avslutas med substrängen SubStr, annars returnerar funktionen False.


Exempel  (VB 6.0)

Dim S As String
 
S = "Programmering är kul!"
If StrEndsWith("kul!", S) Then
  MsgBox "Strängen avslutas med texten 'kul!'"
End If
    
 
  

SamLogic