WordsOf to create list of words from a block after converting every special character to space
List of words will be in format of ANString
Basically by counting how many times we found any of these chars [space] [enter] - _ , . < > ' " ; : ? ! ~ @ # $ % ^ & * ( ) [ ] { }
Words_Len to count how many words found (similar to Frequency function http://MyDev.net/?DevID=RR3ZA4TXRG)
Function Words_Len(sStr)
' Count number of words in a string
' Basically by counting how many times we found any of these chars [space] [enter] - _ , . < > ' " ; : ? ! ~ @ # $ % ^ & * ( ) [ ] { }
' Similar to Len but for words
' Needs WordsOf below
' TheString = "Hello, How are you today?" 'just a test string
Dim ArrayTemp, NumberOfWords
ArrayTemp = split(WordsOf(sStr), " ")
NumberOfWords = UBound(ArrayTemp) + 1
Words_Len = NumberOfWords
End Function
Function WordsOf(StringBlock, Sepa)
' Generate list of words separated by Sepa (ANString)
' Needs
' After replacing all chars [space] [enter] - _ , . < > ' " ; : ? ! ~ @ # $ % ^ & * ( ) [ ] { }
' with a Sepa
If Sepa = "" Then Sepa = "{{$Col$}}"
sStr1 = StringBlock
sStr1 = Replace(sStr1, " <", " ")
sStr1 = Replace(sStr1, " >", " ")
sStr1 = Replace(sStr1, ",", " ")
sStr1 = Replace(sStr1, ".", " ")
sStr1 = Replace(sStr1, "-", " ")
sStr1 = Replace(sStr1, "_", " ")
sStr1 = Replace(sStr1, ";", " ")
sStr1 = Replace(sStr1, ":", " ")
sStr1 = Replace(sStr1, "'", " ")
sStr1 = Replace(sStr1, "?", " ")
sStr1 = Replace(sStr1, "!", " ")
sStr1 = Replace(sStr1, "~", " ")
sStr1 = Replace(sStr1, "@", " ")
sStr1 = Replace(sStr1, "#", " ")
sStr1 = Replace(sStr1, "$", " ")
sStr1 = Replace(sStr1, "%", " ")
sStr1 = Replace(sStr1, "^", " ")
sStr1 = Replace(sStr1, "&", " ")
sStr1 = Replace(sStr1, "*", " ")
sStr1 = Replace(sStr1, "(", " ")
sStr1 = Replace(sStr1, ")", " ")
sStr1 = Replace(sStr1, "[", " ")
sStr1 = Replace(sStr1, "]", " ")
sStr1 = Replace(sStr1, "{", " ")
sStr1 = Replace(sStr1, "}", " ")
sStr1 = Replace(sStr1, Chr(34), " ")
sStr1 = Replace(sStr1, Chr(13), " ")
sStr1 = Replace(sStr1, " ", " ")
sStr1 = Replace(sStr1, " ", " ")
sStr1 = Replace(sStr1, " ", " ")
sStr1 = Replace(sStr1, " ", Sepa)
WordsOf = sStr1
End Function
' Count number of words in a string
' Basically by counting how many times we found any of these chars [space] [enter] - _ , . < > ' " ; : ? ! ~ @ # $ % ^ & * ( ) [ ] { }
' Similar to Len but for words
' Needs WordsOf below
' TheString = "Hello, How are you today?" 'just a test string
Dim ArrayTemp, NumberOfWords
ArrayTemp = split(WordsOf(sStr), " ")
NumberOfWords = UBound(ArrayTemp) + 1
Words_Len = NumberOfWords
End Function
Function WordsOf(StringBlock, Sepa)
' Generate list of words separated by Sepa (ANString)
' Needs
' After replacing all chars [space] [enter] - _ , . < > ' " ; : ? ! ~ @ # $ % ^ & * ( ) [ ] { }
' with a Sepa
If Sepa = "" Then Sepa = "{{$Col$}}"
sStr1 = StringBlock
sStr1 = Replace(sStr1, " <", " ")
sStr1 = Replace(sStr1, " >", " ")
sStr1 = Replace(sStr1, ",", " ")
sStr1 = Replace(sStr1, ".", " ")
sStr1 = Replace(sStr1, "-", " ")
sStr1 = Replace(sStr1, "_", " ")
sStr1 = Replace(sStr1, ";", " ")
sStr1 = Replace(sStr1, ":", " ")
sStr1 = Replace(sStr1, "'", " ")
sStr1 = Replace(sStr1, "?", " ")
sStr1 = Replace(sStr1, "!", " ")
sStr1 = Replace(sStr1, "~", " ")
sStr1 = Replace(sStr1, "@", " ")
sStr1 = Replace(sStr1, "#", " ")
sStr1 = Replace(sStr1, "$", " ")
sStr1 = Replace(sStr1, "%", " ")
sStr1 = Replace(sStr1, "^", " ")
sStr1 = Replace(sStr1, "&", " ")
sStr1 = Replace(sStr1, "*", " ")
sStr1 = Replace(sStr1, "(", " ")
sStr1 = Replace(sStr1, ")", " ")
sStr1 = Replace(sStr1, "[", " ")
sStr1 = Replace(sStr1, "]", " ")
sStr1 = Replace(sStr1, "{", " ")
sStr1 = Replace(sStr1, "}", " ")
sStr1 = Replace(sStr1, Chr(34), " ")
sStr1 = Replace(sStr1, Chr(13), " ")
sStr1 = Replace(sStr1, " ", " ")
sStr1 = Replace(sStr1, " ", " ")
sStr1 = Replace(sStr1, " ", " ")
sStr1 = Replace(sStr1, " ", Sepa)
WordsOf = sStr1
End Function
StringBlock, Sepa
Or
sStr
Or
sStr
Views 4,228
Downloads 1,359
CodeID
DB ID