I need an asp command to strip out from a string all extra punctuation such
as apostrophe, comma, period, spaces dashes, etc etc and just leave the
letters.
Can anybody give me some ideas?
Thanks 6 5636
"Danny" wrote in message
news:pw**********************@news4.srv.hcvlny.cv. net...
:I need an asp command to strip out from a string all extra punctuation such
: as apostrophe, comma, period, spaces dashes, etc etc and just leave the
: letters.
:
Yes. It's easier to match what you want and just dump the rest. This
example returns A-Z regardless of case or in your terms, "just the letters."
<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True
function getAlpha(str)
dim re, match, matches, reStr
set re = New RegExp
re.Pattern = "[a-z]+"
re.IgnoreCase = True
re.Global = True
set matches = re.Execute(str)
for each match in matches
reStr = reStr & match.value
next
getAlpha = reStr
end function
Response.Write("Result: " & getAlpha("AaB5b!'C,*cD/d\Ee"))
%>
Response:
Result: AaBbCcDdEe
HTH...
--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp
Roland Hall wrote on 03 okt 2004 in
microsoft.public.inetserver.asp.general: "Danny" wrote in message news:pw**********************@news4.srv.hcvlny.cv. net... :I need an asp command to strip out from a string all extra punctuation :such : as apostrophe, comma, period, spaces dashes, etc etc and just leave : the letters. :
Yes. It's easier to match what you want and just dump the rest. This example returns A-Z regardless of case or in your terms, "just the letters."
I don't think so,
the replace function is much quicker than matching and a loop:
function getAlpha(str)
dim re
set re = New RegExp
re.Pattern = "[^a-z]+"
re.IgnoreCase = True
re.Global = True
getAlpha = re.replace(str,"")
end function
Response.Write "Result: " & getAlpha("AaB5b!'C,*cD/d\Ee")
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress,
but let us keep the discussions in the newsgroup)
Danny wrote: I need an asp command to strip out from a string all extra punctuation such as apostrophe, comma, period, spaces dashes, etc etc and just leave the letters.
JScript:
return myString.replace(/[^a-z]/gi,"")
vbscript :
Use the Replace function and the RegExp object to do the same.
--
Dave Anderson
Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms. Please do not contact
me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.
I use a function for that. There might a slicker way to do it, but this is what I came up with. You can replace each puncuation mark with just an empty string "" instead of the encoding.
Function EncPunc(checkPunc)
strTmp = checkPunc
strTmp = Replace(strTmp,"'","%39")
strTmp = Replace(strTmp,"%","%25")
strTmp = Replace(strTmp,"&","%26")
strTmp = Replace(strTmp,"#","%23")
strTmp = Replace(strTmp,";","%3B")
strTmp = Replace(strTmp,"/","%2F")
strTmp = Replace(strTmp,"?","%3F")
strTmp = Replace(strTmp,":","%3A")
strTmp = Replace(strTmp,"@","%40")
strTmp = Replace(strTmp,"=","%3D")
strTmp = Replace(strTmp,"<","%3C")
strTmp = Replace(strTmp,">","%3E")
strTmp = Replace(strTmp,"""","%22")
strTmp = Replace(strTmp,"{","%7B")
strTmp = Replace(strTmp,"}","%7D")
strTmp = Replace(strTmp,"|","%7C")
strTmp = Replace(strTmp,"\\","%5C")
strTmp = Replace(strTmp,"^","%5E")
strTmp = Replace(strTmp,"~","%7E")
strTmp = Replace(strTmp,"[","%5B")
strTmp = Replace(strTmp,"]","%5D")
strTmp = Replace(strTmp,"`","%60")
EncPunc = strTmp
End Function
************************************************** ********************
Sent via Fuzzy Software @ http://www.fuzzysoftware.com/
Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... br******@hotmail.com wrote on 13 okt 2004 in
microsoft.public.inetserver.asp.general: Function EncPunc(checkPunc) strTmp = checkPunc strTmp = Replace(strTmp,"'","%39") strTmp = Replace(strTmp,"%","%25") strTmp = Replace(strTmp,"&","%26") strTmp = Replace(strTmp,"#","%23")
teststr = "%&#;/?:@=<>""{}|\^~[]`"
Function EncPunc(x)
EncPunc = ""
for i=1 to len(x)
t = mid(x,i,1)
if instr(teststr,t)>0 then t = "%" & asc(t)
EncPunc = EncPunc & t
next
End Function
==================================
strTmp = Replace(strTmp,"\\","%5C")
you are mistaken, this is not javascript, but vbscript
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress,
but let us keep the discussions in the newsgroup)
Yes, there is a much easier wa to do HTML entity, unfortunatly as far as I
can tell regexps in VB are severely impared!!!
The easy way to do this is to match the char with a regular expresion and
then get the numeric value for the char.
In VB it would look something like
dim reg1 as RegExp
set reg1= new RegExp
reg1.global = true
reg1.pattern="([^a-zA-Z0-9\s])"
text=reg1.replace(text,"&" & Asc("$1") & ";"
Unfortunatley in VB you can not pass submatches to a funtion. Submatches
only work inside the expression.
If anyone knows how to pass submatches to a function in a VB RegExp please
let me know.
For now I just call external Perl scripts from VB
by the way, the above in Perl looks like this
$text=~s/([^a-zA-Z0-9\s])/"&".ord($1).";"/ge;
Aside from being brief, it works!!!
And if we want to check to make sure entities like $ do not get encoded we
can pass to a function that handles this
$text=~s/([^a-zA-Z0-9\s])/encodeHTMLentities($1)/ge;
"Bob Roby" wrote: I use a function for that. There might a slicker way to do it, but this is what I came up with. You can replace each puncuation mark with just an empty string "" instead of the encoding.
Function EncPunc(checkPunc) strTmp = checkPunc strTmp = Replace(strTmp,"'","%39") strTmp = Replace(strTmp,"%","%25") strTmp = Replace(strTmp,"&","%26") strTmp = Replace(strTmp,"#","%23") strTmp = Replace(strTmp,";","%3B") strTmp = Replace(strTmp,"/","%2F") strTmp = Replace(strTmp,"?","%3F") strTmp = Replace(strTmp,":","%3A") strTmp = Replace(strTmp,"@","%40") strTmp = Replace(strTmp,"=","%3D") strTmp = Replace(strTmp,"<","%3C") strTmp = Replace(strTmp,">","%3E") strTmp = Replace(strTmp,"""","%22") strTmp = Replace(strTmp,"{","%7B") strTmp = Replace(strTmp,"}","%7D") strTmp = Replace(strTmp,"|","%7C") strTmp = Replace(strTmp,"\\","%5C") strTmp = Replace(strTmp,"^","%5E") strTmp = Replace(strTmp,"~","%7E") strTmp = Replace(strTmp,"[","%5B") strTmp = Replace(strTmp,"]","%5D") strTmp = Replace(strTmp,"`","%60") EncPunc = strTmp End Function
************************************************** ******************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources...
"Bob Roby" wrote:
I use a function for that. There might a slicker way to do it, but this is what I came up with. You can replace each puncuation mark with just an empty string "" instead of the encoding.
Function EncPunc(checkPunc) strTmp = checkPunc strTmp = Replace(strTmp,"'","%39") strTmp = Replace(strTmp,"%","%25") strTmp = Replace(strTmp,"&","%26") strTmp = Replace(strTmp,"#","%23") strTmp = Replace(strTmp,";","%3B") strTmp = Replace(strTmp,"/","%2F") strTmp = Replace(strTmp,"?","%3F") strTmp = Replace(strTmp,":","%3A") strTmp = Replace(strTmp,"@","%40") strTmp = Replace(strTmp,"=","%3D") strTmp = Replace(strTmp,"<","%3C") strTmp = Replace(strTmp,">","%3E") strTmp = Replace(strTmp,"""","%22") strTmp = Replace(strTmp,"{","%7B") strTmp = Replace(strTmp,"}","%7D") strTmp = Replace(strTmp,"|","%7C") strTmp = Replace(strTmp,"\\","%5C") strTmp = Replace(strTmp,"^","%5E") strTmp = Replace(strTmp,"~","%7E") strTmp = Replace(strTmp,"[","%5B") strTmp = Replace(strTmp,"]","%5D") strTmp = Replace(strTmp,"`","%60") EncPunc = strTmp End Function
************************************************** ******************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Eric |
last post by:
I'm sure it's possible, but I can't figure it out...
Given a line of text, I need to convert all of the spaces between quote
marks to an underscore character.
One can consider the end of the...
|
by: Maurice LING |
last post by:
Hi,
I have the following codes:
from __future__ import nested_scopes
import re
from UserDict import UserDict
class Replacer(UserDict):
|
by: Mike Kamermans |
last post by:
I hope someone can help me, because what I'm going through at the moment
trying to edit XML documents is enough to make me want to never edit XML
again.
I'm looking for an XML editor that has a...
|
by: Neri |
last post by:
Some document processing program I write has to deal with documents
that have headers and footers that are unnecessary for the main
processing part. Therefore, I'm using a regular expression to go...
|
by: Showjumper |
last post by:
I need a regulr expression that cn be used to find <a> tags with the href
attribute set to mailto:. I need to be to search out all the email addresses
in the text of the pages in a website. So for...
|
by: Lyners |
last post by:
Quick question. I have some java script that looks like this;
...
|
by: TOXiC |
last post by:
Hi everyone,
First I say that I serched and tryed everything but I cannot figure
out how I can do it.
I want to open a a file (not necessary a txt) and find and replace a
string.
I can do it...
|
by: =?Utf-8?B?UGF1bCBXdQ==?= |
last post by:
I need to replace the ascII strings in VC++ source code with unicode
compatiable strings. That is I want to replace "abc" with _T("abc") excluding
the strings in #include line or already in...
|
by: Curious |
last post by:
I have another question about Regular Expression. If I use:
if (temp.Contains("Ending") == true)
{
temp =
System.Text.RegularExpressions.Regex.Replace(temp, "Ending",
"Beginning");
}
It...
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
|
by: ryjfgjl |
last post by:
In our work, we often need to import Excel data into databases (such as MySQL, SQL Server, Oracle) for data analysis and processing. Usually, we use database tools like Navicat or the Excel import...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
| |