Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating #codes
I am trying to turn email addresses into #Code strings, in order to
stop bots from harvesting them.... To this end I have created the following UDF but the Excel function "Code() is not accepted. Placing "Application." in front of the word code does not work either. Function Hash(s) As String strL = Len(s) For i = 1 To strL '--Hash = Hash & "&#" & Application.Code(Mid(s, i, 1)) & ";" '--Hash = Hash & "&#" & Code(Mid(s, i, 1)) & ";" Hash = Hash & "&#" & Mid(s, i, 1) & ";" Next i End Function Any ideas? Geoff |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating #codes
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating #codes
Thanks Dave....
It works a treat.... Geoff Dave Peterson wrote: Like: Hash = Hash & "&#" & Asc(Mid(s, i, 1)) & ";" ????? wrote: I am trying to turn email addresses into #Code strings, in order to stop bots from harvesting them.... To this end I have created the following UDF but the Excel function "Code() is not accepted. Placing "Application." in front of the word code does not work either. Function Hash(s) As String strL = Len(s) For i = 1 To strL '--Hash = Hash & "&#" & Application.Code(Mid(s, i, 1)) & ";" '--Hash = Hash & "&#" & Code(Mid(s, i, 1)) & ";" Hash = Hash & "&#" & Mid(s, i, 1) & ";" Next i End Function Any ideas? Geoff -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating a list from multiple (sometimes the same) codes | Excel Discussion (Misc queries) | |||
explanation of codes in Visual Basic when creating User form | New Users to Excel | |||
Creating a document to assist with municipal codes | Setting up and Configuration of Excel | |||
Creating hyperlinks to a word file with field codes | Excel Discussion (Misc queries) | |||
Creating UPC Codes... | Excel Discussion (Misc queries) |