Non dict pages 3
From Marathi wordlist
Jump to navigationJump to searchFunction 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