 | | | VBS - Fixing Text | VBS - Fixing Text 2004-03-02 - By Nick Petit
Back
Cheers Felix!
That's perfect! :)
Nick.
Nick Petit
Lead 3D/TD
F U S E D D D @ M R P P P
20 Thistlethwaite St
South Melbourne
3205 VIC
Australia
http://www.mrppp.com.au
-- -- Original Message -- --
From: Felix Gebhardt
To: XSI@(protected)
Sent: Tuesday, March 02, 2004 7:59 PM
Subject: Re: [Script] VBS - Fixing Text
Hey Nick,
just use Regular Expressions. They do all that. For some syntax info go
here:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnclinic/ht
ml/scripting051099.asp
or have a look at the rename page in the netview.
A small example: -- ---- ---- ---- ---- ---- -- CODE START
Text = " my #*+$§/&%)= messed up string "
logmessage "The original input string: " & Text
Text = ReplaceDemo(Text, "^ *| *$" , "" )
logmessage "Strip out trailing spaces: " & Text
Text = ReplaceDemo(Text, "\W" , "_" )
logmessage "Txt without special chars: " & Text
Text = ReplaceDemo(Text, "_+" , "_" )
logmessage " A bit better: " & Text
Text = ReplaceDemo(Text, "_" , "" )
logmessage " finally strip out the _: " & Text
'====================================
Function ReplaceDemo(inStr, Pattern , Replacement)
'====================================
Dim regAusdr
Set regAusdr = New RegExp
regAusdr.Pattern = Pattern
regAusdr.IgnoreCase = True
regAusdr.Global = True
ReplaceDemo = regAusdr.Replace(inStr, Replacement)
'=========
End Function
'=========
-- ---- ---- ---- ---- ---- ---- ---- ----- END CODE
Hope it helps,
Felix
Nick Petit wrote:
> Cheers Rob, the trim function only trims at the head and the end, so for
> example:
> Trim(" Bob and Jane ") 'results in "Bob and Jane", the spaces in
> between Bob and Jane are still there... fixed with a split function and a
> join with "_"
>
> However the problem is I want to catch any kind of special character and
> numbers... " ' ? > & # ^ @ ! 1 2 3 etc etc...
>
> The replace function won't let me delimit what to replace with the normal
> pattern property [^a-z]
> I might try and imbed a Jscript function, as Kim suggested... :)
>
> Cheers!
> Nick.
>
>
> Nick Petit
> Lead 3D/TD
> F U S E D D D @ M R P P P
> 20 Thistlethwaite St
> South Melbourne
> 3205 VIC
> Australia
>
> http://www.mrppp.com.au
> -- -- Original Message -- --
> From: Robert Moodie
> To: XSI@(protected)
> Sent: Tuesday, March 02, 2004 1:31 AM
> Subject: Re: [Script] VBS - Fixing Text
>
>
> I know Trim(input) will strip out the spaces, not sure about the rest.
> Have you checked the Windows Script docs?
> Or maybe some kond of Replace syntax...
>
> _rob
>
>
> -- -- Original Message -- --
> From: Nick Petit
> To: XSI
> Sent: Monday, March 01, 2004 5:39 AM
> Subject: [Script] VBS - Fixing Text
>
>
> Hiya,
>
> I'm having a slight brain fart at the moment and can't seem to figure
> out how to get this going...
> I'm retrieving text from user input (from a text file or whatever)
> and I don't want to limit the user to have to watch out for his spelling
> by having to not put in spaces, numbers at the head of the word nor
> special characters...
> How do I strip a string of all the numbers, spaces and special
> characters and replace them with an underscore?
> The replace function won't accept [^a-z]...
> I've managed to get the script going another way but I'm now curious
> as to how to do the above...
>
> Cheers!
> Nick.
>
>
> Nick Petit
> Lead 3D/TD
> F U S E D D D @ M R P P P
> 20 Thistlethwaite St
> South Melbourne
> 3205 VIC
> Australia
>
> http://www.mrppp.com.au
---
Unsubscribe? Mail Majordomo@(protected) with the following text in body:
unsubscribe xsi
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859 (See http://iso-8859.ora-code.com)-1">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Cheers Felix!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>That's perfect! :)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Nick.</FONT></DIV>
<DIV>
<DIV> </DIV>
<DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2><FONT color=#808080>Nick Petit<BR></FONT><FONT
color=#800000><FONT color=#808080>Lead 3D/TD</FONT><BR><STRONG>F U S
E D D D @ M R P P P<BR></STRONG></FONT><FONT color=#808080 size=1
>20
Thistlethwaite St<BR>South Melbourne<BR>3205
VIC<BR>Australia</FONT></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2><A
href="http://www.mrppp.com.au">http://www.mrppp.com.au</A></FONT></DIV></DIV><
/DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT:
#000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">-- -- Original Message -- -- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=gebhardt@(protected) href="mailto:gebhardt@(protected)">Felix
Gebhardt</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=XSI@(protected)
href="mailto:XSI@(protected)">XSI@(protected)</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, March 02, 2004 7:59
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Script] VBS - Fixing
Text</DIV>
<DIV><BR></DIV>Hey Nick,<BR><BR>just use Regular Expressions. They do all
that. For some syntax info go<BR>here:<BR><A
href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us
/dnclinic/ht">http://msdn.microsoft.com/library/default.asp?url=/library/en-us
/dnclinic/ht</A><BR>ml/scripting051099.asp<BR>or
have a look at the rename page in the netview.<BR><BR><BR>A small example:
-- ---- ---- ---- ---- ---- -- CODE START<BR><BR>Text = "
my
#*+$§/&%)= messed up string
"<BR>logmessage "The original input string: " & Text<BR>Text =
ReplaceDemo(Text, "^ *| *$" , "" )<BR>logmessage "Strip out
trailing spaces: " & Text<BR>Text = ReplaceDemo(Text,
"\W" , "_" )<BR>logmessage "Txt without special chars: " &
Text<BR>Text = ReplaceDemo(Text, "_+" , "_" )<BR>logmessage
" A
bit better: " & Text<BR>Text = ReplaceDemo(Text, "_" ,
"" )<BR>logmessage " finally strip out the _: " &
Text<BR><BR>'====================================<BR>Function
ReplaceDemo(inStr, Pattern ,
Replacement)<BR>'====================================<BR> Dim
regAusdr<BR> Set regAusdr = New RegExp<BR> regAusdr.Pattern =
Pattern<BR> regAusdr.IgnoreCase = True<BR> regAusdr.Global =
True<BR> ReplaceDemo = regAusdr.Replace(inStr,
Replacement)<BR>'=========<BR>End
Function<BR>'=========<BR><BR>-- ---- ---- ---- ---- ---- ---- ---- ----- END
CODE<BR><BR><BR><BR>Hope it helps,<BR>Felix<BR><BR><BR><BR><BR>Nick Petit
wrote:<BR>> Cheers Rob, the trim function only trims at the head and the
end, so for<BR>> example:<BR>> Trim(" Bob and
Jane ") 'results in "Bob and Jane", the spaces in<BR>>
between Bob and Jane are still there... fixed with a split function and
a<BR>> join with "_"<BR>><BR>> However the problem is I want to
catch
any kind of special character and<BR>> numbers... " ' ? > & # ^ @ !
1 2 3 etc etc...<BR>><BR>> The replace function won't let me
delimit what to replace with the normal<BR>> pattern property
[^a-z]<BR>> I might try and imbed a Jscript function, as Kim suggested...
:)<BR>><BR>> Cheers!<BR>> Nick.<BR>><BR>><BR>> Nick
Petit<BR>> Lead 3D/TD<BR>> F U S E D D D @ M R P P P<BR>>
;
20 Thistlethwaite St<BR>> South Melbourne<BR>> 3205 VIC<BR>>
Australia<BR>><BR>> <A
href="http://www.mrppp.com.au">http://www.mrppp.com.au</A><BR>>  
;
-- -- Original Message -- --<BR>> From: Robert
Moodie<BR>> To: <A
href="mailto:XSI@(protected)">XSI@(protected)</A><BR>>
Sent: Tuesday, March 02, 2004 1:31 AM<BR>> Subject: Re:
[Script] VBS - Fixing Text<BR>><BR>><BR>> I know
Trim(input) will strip out the spaces, not sure about the rest.<BR>> Have
you checked the Windows Script docs?<BR>> Or maybe some kond
of
Replace syntax...<BR>><BR>>
_rob<BR>><BR>><BR>> -- -- Original Message
-- --<BR>> From: Nick
Petit<BR>> To: XSI<BR>>
Sent: Monday, March 01, 2004 5:39 AM<BR>> Subject:
[Script] VBS - Fixing Text<BR>><BR>><BR>>
Hiya,<BR>><BR>> I'm having a slight brain fart
at the moment and can't seem to figure<BR>> out how to get this
going...<BR>> I'm retrieving text from user input
(from a text file or whatever)<BR>> and I don't want to limit the user to
have to watch out for his spelling<BR>> by having to not put in spaces,
numbers at the head of the word nor<BR>> special
characters...<BR>> How do I strip a string of all
the numbers, spaces and special<BR>> characters and replace them with an
underscore?<BR>> The replace function won't accept
[^a-z]...<BR>> I've managed to get the script
going
another way but I'm now curious<BR>> as to how to do the
above...<BR>><BR>>
Cheers!<BR>>
Nick.<BR>><BR>><BR>> Nick
Petit<BR>> Lead
3D/TD<BR>> F U S E D D D @ M R P P
P<BR>> 20 Thistlethwaite
St<BR>> South
Melbourne<BR>> 3205
VIC<BR>>
Australia<BR>><BR>> <A
href="http://www.mrppp.com.au">http://www.mrppp.com.au</A><BR><BR><BR>---<BR
>Unsubscribe?
Mail <A href="mailto:Majordomo@(protected)">Majordomo@(protected)</A>
with
the following text in body:<BR>unsubscribe xsi<BR></BLOCKQUOTE></BODY></HTML>
|
|
|