• Home
 · 
• String Manipulation
 · 
• Usefull Functions: WordCount, TitleCase, OpenTextFile ,SaveTextFile Cut, Copy , Paste, Clear , Sele

Usefull Functions: WordCount, TitleCase, OpenTextFile ,SaveTextFile Cut, Copy , Paste, Clear , Sele

Usefull Functions: WordCount, TitleCase, OpenTextFile ,SaveTextFile Cut, Copy , Paste, Clear , Select-All

Rate Usefull Functions: WordCount, TitleCase, OpenTextFile ,SaveTextFile Cut, Copy , Paste, Clear , Sele

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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