Problems with Replace Method

[james]

Hi, I am loading a CSV file ( Comma Seperated Value) into a Richtext box. I have a routine that splits the data up when it hits
the "," and then copies the results into a listbox. The data also has some different characters in it that I am trying to
remove. The small a with two dots over it and the small y with two dots over it. Here is my code so far to remove the small y:

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button2.Click

'cleans the "," character out of a comma delimited string and outputs the results to a listbox

Dim str As String = RichTextBox1.Te xt

Dim x As String = Chr(255) 'Chr(255)

Dim arr() As String = str.Split(","c)

'Dim arr() As String = str.Split(Chr(2 55), c)

For Each s As String In arr

' s = Replace(Chr(255 ), Chr(32),)

For Each x In s

s.Replace(x, Chr(32))

Next

ListBox1.Items. Add(s)

Next

End Sub

The problem is, when I put a Breakpoint on ListBox1.Items. Add(s), I can step into the code as it goes thru the data from the
Richtextbox and it shows the value for X as being = """" instead of the y with the two dots over it! Therefore instead of
replacing the y with a Space ( Chr(32) , it does nothing! I have checked to be sure I am using the right character code and
that part is correct. ( I tested by setting a labels text property to : Chr(255) and it displayed correctly.)

I know that I am doing something wrong , I just cannot see what it is.

Any suggestions would be greatly appreciated.

james

[Chris Dunaway]

On Fri, 12 Nov 2004 16:17:53 -0600, james wrote:

s.Replace(x, Chr(32))

This line will not replace anything, you must assign the result back to the
string:

s = s.Replace(x,Chr (32))

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.

[Chris Dunaway]

On Fri, 12 Nov 2004 16:17:53 -0600, james wrote:

s.Replace(x, Chr(32))

This line will not replace anything, you must assign the result back to the
string:

s = s.Replace(x,Chr (32))

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.

[james]

Chris, thanks for the suggestion, however, that just replaces all the text with a space " " .
What I am having a problem with is that the value of X that I define as Chr(255) ,,, which is supposed to be the small y with
two dots over it, has am empty value instead of the intended value. I don't understand how X 's value is being changed as I
have set it at one value and for whatever reason it becomes another.
I thought that maybe, I was actually using the wrong Chr value for the little y with the two dots above.
But, I cannot find any reference in Help (VB.NET 2003) that shows what the character values are. There is no table(s) in the
docs that I can find like my old VB6 reference library that had the ANSI character sets listed with the correct Chr(numbers)
listed that I can use to define the character I need to find and replace using Chr or ChrW. I think that is the problem.
VB.NET , since it uses Unicode for Characters, is not reading the correct value for X. Even though I can display that value and
character using Chr(255) on a label and it will show the correct character.
I'm getting cross-eyed (hard for a one eyed guy to do) looking for this reference and the solution to what should be a simple
problem.
james

"Chris Dunaway" <"dunawayc[[at]_lunchmeat_sbcg lobal[dot]]net"> wrote in message
news:1v******** *************** *******@40tude. net...

On Fri, 12 Nov 2004 16:17:53 -0600, james wrote:

s.Replace(x, Chr(32))

This line will not replace anything, you must assign the result back to the
string:

s = s.Replace(x,Chr (32))

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.

[james]

Chris, thanks for the suggestion, however, that just replaces all the text with a space " " .
What I am having a problem with is that the value of X that I define as Chr(255) ,,, which is supposed to be the small y with
two dots over it, has am empty value instead of the intended value. I don't understand how X 's value is being changed as I
have set it at one value and for whatever reason it becomes another.
I thought that maybe, I was actually using the wrong Chr value for the little y with the two dots above.
But, I cannot find any reference in Help (VB.NET 2003) that shows what the character values are. There is no table(s) in the
docs that I can find like my old VB6 reference library that had the ANSI character sets listed with the correct Chr(numbers)
listed that I can use to define the character I need to find and replace using Chr or ChrW. I think that is the problem.
VB.NET , since it uses Unicode for Characters, is not reading the correct value for X. Even though I can display that value and
character using Chr(255) on a label and it will show the correct character.
I'm getting cross-eyed (hard for a one eyed guy to do) looking for this reference and the solution to what should be a simple
problem.
james

"Chris Dunaway" <"dunawayc[[at]_lunchmeat_sbcg lobal[dot]]net"> wrote in message
news:1v******** *************** *******@40tude. net...

On Fri, 12 Nov 2004 16:17:53 -0600, james wrote:

s.Replace(x, Chr(32))

This line will not replace anything, you must assign the result back to the
string:

s = s.Replace(x,Chr (32))

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.

[james]

Fixed it!!!!!!!!!
For anyone interested (besides me) here's what I did:

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button2.Click

'cleans the "," character out of a comma delimited string and outputs the results to a listbox

Dim str As String = RichTextBox1.Te xt

Dim x As String = Chr(255)

Dim arr() As String = str.Split(","c)

For Each s As String In arr

' the routine below looks for Chr(255) in the string s and then if it's there, replaces it with a space, if it's not there then
it just adds 'the original character to the string
If InStr(s, x) Then

s = s.Replace(x, Chr(32))

Else

s = s

End If

ListBox1.Items. Add(s)

Next

End Sub

[james]

Fixed it!!!!!!!!!
For anyone interested (besides me) here's what I did:

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button2.Click

'cleans the "," character out of a comma delimited string and outputs the results to a listbox

Dim str As String = RichTextBox1.Te xt

Dim x As String = Chr(255)

Dim arr() As String = str.Split(","c)

For Each s As String In arr

' the routine below looks for Chr(255) in the string s and then if it's there, replaces it with a space, if it's not there then
it just adds 'the original character to the string
If InStr(s, x) Then

s = s.Replace(x, Chr(32))

Else

s = s

End If

ListBox1.Items. Add(s)

Next

End Sub

[Jay B. Harlow [MVP - Outlook]]

James,
I use Character Map under "Programs - Accessories - System Tools" on Windows
XP.

If you select a character you can look in the lower left hand corner for the
Unicode code point (which is displayed in hex). For example the Latin Small
Letter Y With Diaeresis (ÿ) is U+00FF which in VB.NET you can use:

Const LatinSmallLette rYWithDiaeresis As Char = ChrW(&HFF)

It just happens that in the US (& most of Europe) that the ANSI code point
is the same 255 or &HFF. However there are a number of characters, such as
Left Double Quote " that the code points are different.

Const LeftDoubleQuote As Char = ChrW(&H201C) ' Ansi = 147
Const RightDoubleQuot e As Char = ChrW(&H201D) ' Ansi = 148

I almost always use ChrW & the Unicode code points as Chr & the Ansi code
points can be effected by the region settings in Control Panel. ChrW(&HFF)
will be a ÿ no matter where you go, where as Chr(&HFF) may be some other
character in other countries...

Hope this helps
Jay

"james" <jjames700ReMoV eMe at earthlink dot net> wrote in message
news:uF******** ******@TK2MSFTN GP14.phx.gbl...

Chris, thanks for the suggestion, however, that just replaces all the text
with a space " " .
What I am having a problem with is that the value of X that I define as
Chr(255) ,,, which is supposed to be the small y with two dots over it,
has am empty value instead of the intended value. I don't understand how
X 's value is being changed as I have set it at one value and for whatever
reason it becomes another.
I thought that maybe, I was actually using the wrong Chr value for the
little y with the two dots above.
But, I cannot find any reference in Help (VB.NET 2003) that shows what the
character values are. There is no table(s) in the docs that I can find
like my old VB6 reference library that had the ANSI character sets listed
with the correct Chr(numbers) listed that I can use to define the
character I need to find and replace using Chr or ChrW. I think that is
the problem. VB.NET , since it uses Unicode for Characters, is not reading
the correct value for X. Even though I can display that value and
character using Chr(255) on a label and it will show the correct
character.
I'm getting cross-eyed (hard for a one eyed guy to do) looking for this
reference and the solution to what should be a simple problem.
james

"Chris Dunaway" <"dunawayc[[at]_lunchmeat_sbcg lobal[dot]]net"> wrote in
message news:1v******** *************** *******@40tude. net...

On Fri, 12 Nov 2004 16:17:53 -0600, james wrote:

s.Replace(x, Chr(32))

This line will not replace anything, you must assign the result back to
the
string:

s = s.Replace(x,Chr (32))

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.

[Jay B. Harlow [MVP - Outlook]]

James,
I use Character Map under "Programs - Accessories - System Tools" on Windows
XP.

If you select a character you can look in the lower left hand corner for the
Unicode code point (which is displayed in hex). For example the Latin Small
Letter Y With Diaeresis (ÿ) is U+00FF which in VB.NET you can use:

Const LatinSmallLette rYWithDiaeresis As Char = ChrW(&HFF)

It just happens that in the US (& most of Europe) that the ANSI code point
is the same 255 or &HFF. However there are a number of characters, such as
Left Double Quote " that the code points are different.

Const LeftDoubleQuote As Char = ChrW(&H201C) ' Ansi = 147
Const RightDoubleQuot e As Char = ChrW(&H201D) ' Ansi = 148

I almost always use ChrW & the Unicode code points as Chr & the Ansi code
points can be effected by the region settings in Control Panel. ChrW(&HFF)
will be a ÿ no matter where you go, where as Chr(&HFF) may be some other
character in other countries...

Hope this helps
Jay

"james" <jjames700ReMoV eMe at earthlink dot net> wrote in message
news:uF******** ******@TK2MSFTN GP14.phx.gbl...

Chris, thanks for the suggestion, however, that just replaces all the text
with a space " " .
What I am having a problem with is that the value of X that I define as
Chr(255) ,,, which is supposed to be the small y with two dots over it,
has am empty value instead of the intended value. I don't understand how
X 's value is being changed as I have set it at one value and for whatever
reason it becomes another.
I thought that maybe, I was actually using the wrong Chr value for the
little y with the two dots above.
But, I cannot find any reference in Help (VB.NET 2003) that shows what the
character values are. There is no table(s) in the docs that I can find
like my old VB6 reference library that had the ANSI character sets listed
with the correct Chr(numbers) listed that I can use to define the
character I need to find and replace using Chr or ChrW. I think that is
the problem. VB.NET , since it uses Unicode for Characters, is not reading
the correct value for X. Even though I can display that value and
character using Chr(255) on a label and it will show the correct
character.
I'm getting cross-eyed (hard for a one eyed guy to do) looking for this
reference and the solution to what should be a simple problem.
james

"Chris Dunaway" <"dunawayc[[at]_lunchmeat_sbcg lobal[dot]]net"> wrote in
message news:1v******** *************** *******@40tude. net...

On Fri, 12 Nov 2004 16:17:53 -0600, james wrote:

s.Replace(x, Chr(32))

This line will not replace anything, you must assign the result back to
the
string:

s = s.Replace(x,Chr (32))

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.

[james]

Thank you Jay. I guess I have been spoiled by having VB6's Reference Library and now that I am using VB.NET (nope I did not thow
away the VB6 Ref. Library) I find it hard to understand why the character sets are not listed in Help, where they can easily be
found.
As you have probably seen from my previous posts in this thread, I am working on a utility to filter out
ANSI characters from a CSV file. I have that working fine as of now. But, the problem I have run into now is when I open the
file(CSV) with Access as a Text file with a Delimiter "," it parses the file just fine but, more of the extra characters appear
in some of the text in the datagrid I display the data in.
I can use a program called Textpad, to view the original file (the one I filtered) and it does not show the extra characters. I
can go into Access 2003 itself, and build a new database and import that same file
and under the Advanced setting, I can select UTF-8 and Access will import the CSV file correctly and without the extra
characters. But, my utility has a function that I am working on to build a new Access database using the CSV file's info and
when I load the file into the datagrid using this routine:

Private Sub btnImportCSV_Cl ick(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnImportCSV.Cl ick

DataGrid1.DataS ource = Nothing

Dim strFileName As String

Dim strFilePath As String

Dim sSlash As Single

Try

With OpenFileDialog1

..Title = "Import CSV file"

'.InitialDirect ory = "C:\"

..Filter = "File (*.xls;*.csv;*. txt)|*.xls;*.cs v;*.txt|All files (*.*)|*.*"

..FileName = ""

..ShowDialog()

sSlash = InStrRev(.FileN ame, "\")

strFilePath = Mid(.FileName, 1, sSlash)

strFileName = Mid(.FileName, sSlash + 1, Len(.FileName))

End With

Dim strConnectionSt ring As String = "Provider=Micro soft.Jet.OLEDB. 4.0;" _

& "Data Source=" & strFilePath & ";" _

& "Extended Properties=""te xt;HDR=Yes;FMT= Delimited\"""

Dim conn As New OleDb.OleDbConn ection(strConne ctionString)

conn.Open() ' Open connection with the database.

Dim objCmdSelect As New OleDb.OleDbComm and("SELECT * FROM [" & strFileName & "]", conn) .

' Create new OleDbDataAdapte r that is used to build a DataSet based on the preceding SQL SELECT statement.

Dim objAdapter1 As New OleDb.OleDbData Adapter

objAdapter1.Sel ectCommand = objCmdSelect 'Pass the Select command to the adapter.

Dim objDataset1 As New DataSet 'Create new DataSet to hold information from the worksheet.

Dim mytablename As String

objAdapter1.Fil l(objDataset1, "mytable") 'Fill the DataSet with the information from the file.

DataGrid1.DataS ource = objDataset1.Tab les(0).DefaultV iew 'Build a table from the original data.

TextBox1.Text = objDataset1.Tab les(0).Columns. Count

TextBox2.Text = objDataset1.Tab les(0).TableNam e

TextBox3.Text = objDataset1.Tab les(0).Rows.Cou nt.ToString

conn.Close() 'Clean up objects.

Catch ex As Exception

MsgBox(ex.Messa ge).ToString()

End Try

DataGrid1.Visib le = True

DataGrid1.Refre sh()

Me.Text = "Importing CSV File:" & strFileName

End Sub

I get the extra characters displayed in the datagrid. So, I know that the extra characters are not actually in the new CSV file
that I saved but, are being displayed by Access in some way.

Any suggestions on what I may be doing wrong here would be appreciated.

james


"Jay B. Harlow [MVP - Outlook]" <Ja************ @msn.com> wrote in message news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

James,
I use Character Map under "Programs - Accessories - System Tools" on Windows XP.

If you select a character you can look in the lower left hand corner for the Unicode code point (which is displayed in hex).
For example the Latin Small Letter Y With Diaeresis (ÿ) is U+00FF which in VB.NET you can use:

Const LatinSmallLette rYWithDiaeresis As Char = ChrW(&HFF)

It just happens that in the US (& most of Europe) that the ANSI code point is the same 255 or &HFF. However there are a number
of characters, such as Left Double Quote " that the code points are different.

Const LeftDoubleQuote As Char = ChrW(&H201C) ' Ansi = 147
Const RightDoubleQuot e As Char = ChrW(&H201D) ' Ansi = 148

I almost always use ChrW & the Unicode code points as Chr & the Ansi code points can be effected by the region settings in
Control Panel. ChrW(&HFF) will be a ÿ no matter where you go, where as Chr(&HFF) may be some other character in other
countries...

Hope this helps
Jay