Replace Function 1

[fergy1]

I have the following Replace Function

Replace(TotalSqft, '.00', '')

How do I add another check within the replace function? I want to check and replace anything with .00 and .50. Can I use wildcards?

Thanks for the help

 

[Veep]

No.
Copied from vbscript documentation:

Returns a string in which a specified substring has been replaced with another substring a specified number of times.

Replace(expression, find, replacewith[, start[, count[, compare]]])
Arguments

expression
Required. String expression containing substring to replace.

find
Required. Substring being searched for.

replacewith
Required. Replacement substring.

start
Optional. Position within expression where substring search is to begin. If omitted, 1 is assumed. Must be used in conjunction with count.

count
Optional. Number of substring substitutions to perform. If omitted, the default value is -1, which means make all possible substitutions. Must be used in conjunction with start.

compare
Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values. If omitted, the default value is 0, which means perform a binary comparison.

Settings
The compare argument can have the following values:

Constant Value Description
vbBinaryCompare 0 Perform a binary comparison.
vbTextCompare 1 Perform a textual comparison.

Return Values
Replace returns the following values:

If Replace returns
expression is zero-length Zero-length string ("&quot.
expression is Null An error.
find is zero-length Copy of expression.
replacewith is zero-length Copy of expression with all occurences of find removed.
start > Len(expression) Zero-length string.
count is 0 Copy of expression.

Remarks
The return value of the Replace function is a string, with substitutions made, that begins at the position specified by start and and concludes at the end of the expression string. It is not a copy of the original string from start to finish.

The following example uses the Replace function to return a string:

Dim MyString
MyString = Replace("XXpXXPXXp", "p", "Y&quot ' A binary comparison starting at the beginning of the string. Returns "XXYXXPXXY".
MyString = Replace("XXpXXPXXp", "p", "Y", ' A textual comparison starting at position 3. Returns "YXXYXXY". 3, -1, 1)

 

[onpnt]

you can imbed replace functions within replace functions but it sounds like you want the replace method and not the function.

____________________________________________________
_{Python????? The other programming language you never thought of!
thread333-584700}

http://www.onpntwebdesigns.com

 

[fergy1]

No, I just need a function that replaces any decimal such as .00 or .50 or .25 etc with nothing. This is an integer field I am importing into so the decimal's will screw it up. I just want to replace the decimals with blanks. The most common is .00 and .50 thus the replace function need earlier.

 

[onpnt]

Search google for regular expression replace method


____________________________________________________
_{Python????? The other programming language you never thought of!
thread333-584700}

http://www.onpntwebdesigns.com

 

[Funka]

' do it with a regular expression (RegExp).
' your input is named str.
' two ways of using a regexp to "cast" this
' input to an int are provided.

Dim str, objReg, objMatches
Set objReg = New RegExp
objReg.Global = True

' this first example strips anything matching the
' pattern (a decimal followed by 0 or more numbers)
' by using the "Replace" method of the RegExp
str = "12.25"
objReg.Pattern = "\.\d*"
str = objReg.Replace(str, "")
response.write &quot;new value is &quot; & str & &quot;<br>&quot;


' this next example simply shows another way to
' &quot;pick&quot; out what you want from a string.
' the usage here &quot;captures&quot; the first parenthesized
' pattern (\d+) by using the &quot;Execute&quot; method and the
' &quot;submatches&quot; collection -- the pattern used is one
' or more numbers, possibly followed by a decimal
' plus one or more numbers.
str = &quot;12.25&quot;
objReg.Pattern = &quot;(\d+)(\.\d*)?&quot;
Set objMatches = objReg.Execute(str)
str = objMatches(0).Submatches(0)
response.write &quot;new value is &quot; & str & &quot;<br>&quot;

be sure to do a final check that str is not empty.

For some good information on Regular Expressions, there are hundreds of documents out there for you to find, but my favorite quick-reference is here:

http://devedge.netscape.com/library/manuals/2000/javascript/1.5/guide/regexp.html

-- even though this particular reference is for JavaScript, the syntax is just the same...

 

[fergy1]

Funka-

Thanks for the help.