Definições da Classe
objString est une Classe
FIN
Procedure Constructeur()
Procedure Destructeur()
FUNCTION PadLeft(LOCAL InputString is string, PadCharacter is character, TargetLength is int)
IF TargetLength > Length(InputString) THEN
InputString = RepeatString(PadCharacter,TargetLength-Length(InputString)) + InputString
ELSE
InputString = InputString
END
RESULT InputString
FUNCTION PadRight(LOCAL InputString is string, PadCharacter is character, TargetLength is int)
InputString = Complete(InputString,TargetLength,PadCharacter)
RESULT InputString
FUNCTION ContainsAlphaOnly(LOCAL InputString is string)
Counter is int
InputString = NoSpace(Upper(NoAccent(InputString)))
FOR Counter = 1 _TO_ Length(InputString)
IF NOT "A" <= Middle(InputString,Counter,1) <= "Z" THEN
RESULT False
END
END
RESULT True
FUNCTION ContainsDigitsOnly(LOCAL InputString is string)
Counter is int
InputString = Upper(NoAccent(Replace(InputString," ","",IgnoreCase)))
FOR Counter = 1 _TO_ Length(InputString)
IF NOT "0" <= Middle(InputString,Counter,1) <= "9" THEN
RESULT False
END
END
RESULT True
FUNCTION ContainsDigits(LOCAL InputString is string)
IF StringCount(InputString,"0") > 0 RESULT True
IF StringCount(InputString,"1") > 0 RESULT True
IF StringCount(InputString,"2") > 0 RESULT True
IF StringCount(InputString,"3") > 0 RESULT True
IF StringCount(InputString,"4") > 0 RESULT True
IF StringCount(InputString,"5") > 0 RESULT True
IF StringCount(InputString,"6") > 0 RESULT True
IF StringCount(InputString,"7") > 0 RESULT True
IF StringCount(InputString,"8") > 0 RESULT True
IF StringCount(InputString,"9") > 0 RESULT True
RESULT False
FUNCTION ContainsVowels(LOCAL InputString is string)
InputString = Upper(NoAccent(InputString))
IF StringCount(InputString,"A") > 0 RESULT True
IF StringCount(InputString,"E") > 0 RESULT True
IF StringCount(InputString,"I") > 0 RESULT True
IF StringCount(InputString,"O") > 0 RESULT True
IF StringCount(InputString,"U") > 0 RESULT True
IF StringCount(InputString,"Y") > 0 RESULT True
RESULT False
FUNCTION StripDoubleSpaces(LOCAL InputString is string)
WHILE StringCount(InputString," ") > 0
InputString = Replace(InputString," "," ",IgnoreCase)
END
RESULT InputString
FUNCTION StripSpaces(LOCAL InputString is string)
WHILE StringCount(InputString," ") > 0
InputString = Replace(InputString," ","",IgnoreCase)
END
RESULT InputString
FUNCTION StripCharsFromList(LOCAL InputString is string, ContinuousCharacterList is string, CaseSensitive is boolean = False)
lint_Counter is int
IF NOT NoSpace(ContinuousCharacterList) = "" THEN
FOR lint_Counter = 1 _TO_ Length(ContinuousCharacterList)
IF CaseSensitive THEN
InputString = Replace(InputString,ContinuousCharacterList[[lint_Counter]],"")
ELSE
InputString = Replace(InputString,ContinuousCharacterList[[lint_Counter]],"",IgnoreCase)
END
END
END
RESULT InputString
FUNCTION StripNonAlphaNumeric(LOCAL InputString is string,StripSpacesAlso is boolean = False)
lchar_EvaluateChar is character
lstr_TargetString is string
lint_Counter is int = Length(InputString)
FOR iCounter = 1 _TO_ Length(InputString)
lchar_EvaluateChar = Upper(NoAccent(Middle(InputString,iCounter,1)))
IF "0" <= lchar_EvaluateChar <= "9" OR "A" <= lchar_EvaluateChar <= "Z"
lstr_TargetString += Middle(InputString,iCounter,1)
ELSE
IF lchar_EvaluateChar = " " _AND_ NOT StripSpacesAlso THEN
lstr_TargetString += Middle(InputString,iCounter,1)
END
END
END
RESULT lstr_TargetString
FUNCTION StripStringsFromList(LOCAL InputString is string, TABSeperatedStringList is string, CaseSensitive is boolean = False, CompleteWord is boolean = False)
lint_Counter is int = 0
lstr_StringToStrip is string
IF NOT NoSpace(TABSeperatedStringList) = "" THEN
FOR ALL STRING lstr_StringToStrip OF TABSeperatedStringList SEPARATED by TAB
IF CaseSensitive THEN
IF CompleteWord THEN
InputString = Replace(InputString,lstr_StringToStrip,"",WholeWord)
ELSE
InputString = Replace(InputString,lstr_StringToStrip,"")
END
ELSE
IF CompleteWord THEN
InputString = Replace(InputString,lstr_StringToStrip,"",IgnoreCase+WholeWord)
ELSE
InputString = Replace(InputString,lstr_StringToStrip,"",IgnoreCase)
END
END
END
InputString = :StripDoubleSpaces(InputString)
END
RESULT InputString
FUNCTION TrimNonAlphaNumeric(LOCAL InputString is string,TrimSpacesAlso is boolean = True)
IF TrimSpacesAlso THEN
WHILE NOT "0" <= Upper(NoAccent(Left(InputString,1))) <= "9" AND NOT "A" <= Upper(NoAccent(Left(InputString,1))) <= "Z"
InputString = Middle(InputString,2)
IF Length(InputString) = 0 THEN
BREAK
END
END
WHILE NOT "0" <= Upper(NoAccent(Right(InputString,1))) <= "9" AND NOT "A" <= Upper(NoAccent(Right(InputString,1))) <= "Z"
InputString = Middle(InputString,1,Length(InputString)-1)
IF Length(InputString) = 0 THEN
BREAK
END
END
ELSE
WHILE NOT "0" <= Upper(NoAccent(Left(InputString,1))) <= "9" AND NOT "A" <= Upper(NoAccent(Left(InputString,1))) <= "Z" AND Upper(Left(InputString,1)) <> " "
InputString = Middle(InputString,2)
IF Length(InputString) = 0 THEN
BREAK
END
END
WHILE NOT "0" <= Upper(NoAccent(Right(InputString,1))) <= "9" AND NOT "A" <= Upper(NoAccent(Right(InputString,1))) <= "Z" AND Upper(Left(InputString,1)) <> " "
InputString = Middle(InputString,1,Length(InputString)-1)
IF Length(InputString) = 0 THEN
BREAK
END
END
END
RESULT InputString
FUNCTION TrimCRLF(LOCAL InputString is string)
InputString = NoSpace(InputString)
WHILE Left(InputString,1) IN (CR, CRLF)
InputString = Middle(InputString,2)
IF Length(InputString) = 0 THEN
BREAK
END
END
WHILE Right(InputString,1) IN (CR, CRLF)
InputString = Middle(InputString,1,Length(InputString)-1)
IF Length(InputString) = 0 THEN
BREAK
END
END
RESULT InputString
FUNCTION SortSentence(LOCAL InputString is string, StripNonAlphaNumeric is boolean = False)
OutputString is string
StringAsArray is array of 0 string
IF StripNonAlphaNumeric THEN
InputString = :StripNonAlphaNumeric(InputString,False)
END
InputString = :StripDoubleSpaces(InputString)
StringToArray(InputString,StringAsArray," ")
ArraySort(StringAsArray,asAscending)
OutputString = ArrayToString(StringAsArray," ")
RESULT OutputString
FUNCTION TrimCharsFromList(LOCAL InputString is string, ContinuousCharacterList is string)
WHILE StringCount(ContinuousCharacterList,NoAccent(Left(InputString,1)),IgnoreCase) > 0
InputString = Middle(InputString,2)
IF Length(InputString) = 0 THEN
BREAK
END
END
WHILE StringCount(ContinuousCharacterList,NoAccent(Right(InputString,1)),IgnoreCase) > 0
InputString = Middle(InputString,1,Length(InputString)-1)
IF Length(InputString) = 0 THEN
BREAK
END
END
RESULT InputString
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/