Non dict pages 3

From Marathi wordlist
Jump to navigationJump to search

Function TrimWord( sWord As String) As String

   Dim n as Integer
   n = Len(sWord)
   
   If n > 0 Then
   
       Dim m as Integer :  m = 1
       Do While IsPermissiblePrefix( ASC(Mid(sWord, m, 1) ) ) And m <= n
               m = m + 1
       Loop
   
       Do While IsPermissibleSuffix( ASC(Mid(sWord, n, 1) ) ) And n >= 1
               n = n - 1
       Loop
       
       If n > m Then
           TrimWord = Mid(sWord, m, (n + 1) - m)
       Else
           TrimWord = sWord
       End If
           
   Else
       TrimWord = ""
   End If