1. Funció Elim_Car (ByVal a as string, ByVal b as string) as string
Elim_Car = ""
If Strings.Len(b) > 1 Then
Elim_Car = "-1"
Else
For i = 1 To Strings.Len(a)
c = Strings.Right(Strings.Left(a, i), 1)
If c <> b Then
Elim_Car = Elim_Car & c
End If
Next
End If
2. SubLeft(ByVal a as string, ByVal ini as integer, ByVal longi as integer) as string. Retorna, des de ini i suma longi.
SubLeft = Strings.Left(Strings.Right(a, Strings.Len(a) - ini + 1), longi)
SubRight = Strings.Right(Strings.Left(a, Strings.Len(a) - ini + 1), longi)
3. Function Substituir(ByVal a as string, ByVal b as string, ByVal c as string) as string
Substituir = ""
For i = 1 To Strings.Len(a)
d = Strings.Right(Strings.Left(a, i), 1)
If d <> b Then
Substituir = Substituir & d
Else
Substituir = Substituir & c
End If
Next
4.Eliminar espais.
F_Espais = ""
For i = 1 To Strings.Len(a)
c = Strings.Right(Strings.Left(a, i), 1)
If c <> " " Then F_Espais = F_Espais & c
Next
