Visual Basic - Help on char or string var

Author

Help on char or string var

gorostas

2005-05-26, 3:56 pm

Helo everyone!

I'm making some little app whitch will help me to get things automated,,,im
in the need very often to make some little changes to some files, and
something like this:

dim string1
dim string2
dim temp

temp=string1
string1=sting2
sting2=temp

now, my procedure is taking every file, open it, do some changes and save it!
but i loos my characters. Im from Croatia (EU) and have some chars like
|ÄÅ_Å½Ä†ÄŒ|...how can i save in unicode file type.

my code is:
==============================

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If Label4.Text = "" Then
MsgBox("izaberi putanju prvo")
Exit Sub
End If

If TextBox1.Text = "" Then
MsgBox("Unesi barem nesto u gornje polje!")
Exit Sub
End If

Dim putanja As String = StatusBar1.Text & "\"
Dim dirinfo As DirectoryInfo
Dim niz As Array
Dim dir As Array
Dim filinf As FileInfo
Dim a As Int16 = 0
Dim tee As String

dirinfo = New DirectoryInfo(putanja)
niz = dirinfo.GetFiles("*." & TextBox3.Text)
dir = dirinfo.GetDirectories()

For Each filinf In niz
temp_string.Text = " "
temp_string.Refresh()
Dim sr As StreamReader = New StreamReader(putanja & filinf.Name)
Label5.Text = filinf.Name
Label5.Refresh()
temp_string.Text = sr.ReadToEnd
sr.Close()
temp_string.SelectAll()
Dim index As Integer = temp_string.Text.IndexOf(TextBox1.Text)
While index >= 0
temp_string.Select(index, TextBox1.TextLength)
temp_string.SelectedText = TextBox2.Text
index = temp_string.Text.IndexOf(TextBox1.Text, index + 1)
a += 1
End While
If a > 1 Then
MsgBox("nadjena je rijec!")
End If
Label9.Text = a
tee = temp_string.Text

'temp_string.SaveFile(putanja & filinf.Name)

Dim sw As StreamWriter = New StreamWriter(putanja & filinf.Name)
sw.Write(tee)
sw.Flush()
sw.Close()

Next
End Sub

==============================

thanks in advance

-k.p.

Saga

2005-05-26, 3:56 pm

You'll have to ask this question in a .NET newsgroup...

Here is one, I am sure others will share more.

microsoft.public.dotnet.languages.vb

Good luck!
Saga

"gorostas" <gorostasREMOVE_THIS@hotmail.com> wrote in message
news:E223AC2E-2B21-43DB-905E-7FBFB328F11B@microsoft.com...
> Helo everyone!
>
> I'm making some little app whitch will help me to get things
> automated,,,im
> in the need very often to make some little changes to some files, and
> something like this:
>
> dim string1
> dim string2
> dim temp
>
> temp=string1
> string1=sting2
> sting2=temp
>
> now, my procedure is taking every file, open it, do some changes and
> save it!
> but i loos my characters. Im from Croatia (EU) and have some chars
> like
> |DSZCC|...how can i save in unicode file type.
>
> my code is:
> ==============================
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
> If Label4.Text = "" Then
> MsgBox("izaberi putanju prvo")
> Exit Sub
> End If
>
> If TextBox1.Text = "" Then
> MsgBox("Unesi barem nesto u gornje polje!")
> Exit Sub
> End If
>
> Dim putanja As String = StatusBar1.Text & "\"
> Dim dirinfo As DirectoryInfo
> Dim niz As Array
> Dim dir As Array
> Dim filinf As FileInfo
> Dim a As Int16 = 0
> Dim tee As String
>
> dirinfo = New DirectoryInfo(putanja)
> niz = dirinfo.GetFiles("*." & TextBox3.Text)
> dir = dirinfo.GetDirectories()
>
> For Each filinf In niz
> temp_string.Text = " "
> temp_string.Refresh()
> Dim sr As StreamReader = New StreamReader(putanja &
> filinf.Name)
> Label5.Text = filinf.Name
> Label5.Refresh()
> temp_string.Text = sr.ReadToEnd
> sr.Close()
> temp_string.SelectAll()
> Dim index As Integer =
> temp_string.Text.IndexOf(TextBox1.Text)
> While index >= 0
> temp_string.Select(index, TextBox1.TextLength)
> temp_string.SelectedText = TextBox2.Text
> index = temp_string.Text.IndexOf(TextBox1.Text, index +
> 1)
> a += 1
> End While
> If a > 1 Then
> MsgBox("nadjena je rijec!")
> End If
> Label9.Text = a
> tee = temp_string.Text
>
> 'temp_string.SaveFile(putanja & filinf.Name)
>
> Dim sw As StreamWriter = New StreamWriter(putanja &
> filinf.Name)
> sw.Write(tee)
> sw.Flush()
> sw.Close()
>
> Next
> End Sub
>
> ==============================
>
> thanks in advance
>
>
>
> -k.p.

gorostas

2005-05-26, 3:56 pm

Sponsored Links