| 12345678910111213141516171819202122 |
- $PBExportHeader$f_strip.srf
- global type f_strip from function_object
- end type
- forward prototypes
- global function string f_strip (string a_szarg)
- end prototypes
- global function string f_strip (string a_szarg);Integer nLength, nPos
- nLength = Len( a_szArg)
- For nPos = 1 To nLength
- Choose Case Mid( a_szArg, nPos, 1)
- Case "~t", "~r", "~n", '"',":"
- a_szArg = Replace( a_szArg, nPos, 1, " ")
- End Choose
- Next
- Return Trim( a_szArg)
- end function
|
