VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



You can use this module to change regular text into funky-looking symbols.

by Xavior Gates (2 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 5th March 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)

You can use this module to change regular text into funky-looking symbols.

Rate You can use this module to change regular text into funky-looking symbols.



'Symbolize Module by Xavior Gates'


Public Function Symbolize(ByVal theString) As String
  theString = Replace(theString, "1", "¹")
  theString = Replace(theString, "2", "²")
  theString = Replace(theString, "3", "³")
  theString = Replace(theString, "0", "º")
  theString = Replace(theString, "e", "è")
  theString = Replace(theString, "r", "®")
  theString = Replace(theString, "t", "†")
  theString = Replace(theString, "y", "ý")
  theString = Replace(theString, "u", "ü")
  theString = Replace(theString, "i", "î")
  theString = Replace(theString, "o", "õ")
  theString = Replace(theString, "p", "Þ")
  theString = Replace(theString, "a", "â")
  theString = Replace(theString, "s", "$")
  theString = Replace(theString, "d", "ð")
  theString = Replace(theString, "f", "ƒ")
  theString = Replace(theString, "l", "|")
  theString = Replace(theString, "x", "×")
  theString = Replace(theString, "c", "©")
  theString = Replace(theString, "n", "ñ")
  theString = Replace(theString, "E", "Ê")
  theString = Replace(theString, "Y", "¥")
  theString = Replace(theString, "U", "Û")
  theString = Replace(theString, "I", "‡")
  theString = Replace(theString, "O", "Ø")
  theString = Replace(theString, "P", "¶")
  theString = Replace(theString, "A", "Ã")
  theString = Replace(theString, "S", "§")
  theString = Replace(theString, "D", "Ð")
  theString = Replace(theString, "L", "£")
  theString = Replace(theString, "C", "Ç")
  theString = Replace(theString, "B", "ß")
  theString = Replace(theString, "N", "Ñ")
  theString = Replace(theString, "!", "¡")
  theString = Replace(theString, "?", "¿")
  theString = Replace(theString, "<", "«")
  theString = Replace(theString, ">", "»")
  Symbolize = theString
End Function

Download this snippet    Add to My Saved Code

You can use this module to change regular text into funky-looking symbols. Comments

No comments have been posted about You can use this module to change regular text into funky-looking symbols.. Why not be the first to post a comment about You can use this module to change regular text into funky-looking symbols..

Post your comment

Subject:
Message:
0/1000 characters