by Muhammad Rafique (4 Submissions)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 15th November 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Usefull Functions: WordCount, TitleCase, OpenTextFile ,SaveTextFile Cut, Copy , Paste, Clear , Select-All
'Result=FunctionName(Argument)
Function WordCount(mystring as String) as integer
' Returns no of words in the string in argument
dim ar() as string
ar=Split(mystring,chr(32))
WordCount=Ubound(ar)+1
End Function
Function TitleCase(mystring as string) as string
TitleCase=StrConv(mystring,vbProperCase)
End Function
Function OpenTextFile(FileName as String) as String
FilePtr=FreeFile()
Open FileName For Input as FilePtr
OpenTextFile=Input(LOF(FilePtr),FilePtr)
Close FilePtr
End Function
Function SaveTextFile(FileName as String,myString as String) as boolean
On Error Goto NotSaved
FilePtr=FreeFile()
Open FileName for Output as FilePtr
Print FilePtr,myString
Close FilePtr
SaveTextFile=True
Exit Function
NotSaved:
SaveTextFile=False
End Function
Sub Cut(txt as TextBox)
ClipBoard.SetText txt.SelText
txt.SelText=""
End Sub
Sub Copy(txt as TextBox)
ClipBoard.SetText txt.SelText
End Sub
Sub Paste(txt as TextBox)
txt.SelText=ClipBoard.GetText
End Sub
Sub SelectAll(txt as TextBox)
txt.SetFocus
SendKeys "^{Home}+^{End}",True
End Sub
'For More useful functions use my email address to have
'Graphics like paint brush functions
'Text like Notepad
'Format like Word pad
'Tools like MSWord
'Any Function on Demand
No comments have been posted about Usefull Functions: WordCount, TitleCase, OpenTextFile ,SaveTextFile Cut, Copy , Paste, Clear , Sele. Why not be the first to post a comment about Usefull Functions: WordCount, TitleCase, OpenTextFile ,SaveTextFile Cut, Copy , Paste, Clear , Sele.