Skip to content

Instantly share code, notes, and snippets.

@amarodeabreu

amarodeabreu/DeTabString.vb

Created February 23, 2021 09:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save amarodeabreu/935e0b2774d34272d76daad2ffe56982 to your computer and use it in GitHub Desktop.
Save amarodeabreu/935e0b2774d34272d76daad2ffe56982 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
DeTabString.vb
Function DeTabString(p_strInput)
Const TAB_SIZE = 8
Const FILLER = " "
Dim strInput, intCounter
'Initialise
strinput = p_strInput
DeTabString = ""
'Take everything up to the tab
DeTabString = DeTabString & left(strInput, instr(1,strInput, vbTab) - 1)
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment