How to convert this VB code to C#?

[Jason Huang]

Hi,

I would like to convert the following Visual Basic code to C#, does someone
has free tool to convert it?

Function PreConnect() As Boolean

Dim strDSN$, strUidPwd$, strDatabase$, strConnect$

Dim hFile As Integer, strBuffer As String

' open and read

hFile = FreeFile

Open App.Path & "\" & etcBootFile For Input As hFile

Line Input #hFile, strBuffer

strUidPwd = Decode(strBuffer)

Line Input #hFile, strDSN

Line Input #hFile, strDatabase

Close hFile

' try connect

If strDSN = "" Or strUidPwd = "" Then Exit Function

strConnect = "ODBC;DSN=" & strDSN & ";" & strUidPwd & ";DATABASE=" &
strDatabase

' pre-connect

PreConnect = ConnAttemp(strConnect)

End Function

Function Decode(strWhat$) As String

Decode = Encode(strWhat)

End Function

' 5/23

Function Encode(strWhat$) As String

Dim i As Integer, strResult As String

Dim b As Byte

For i = 1 To Len(strWhat)

b = Asc(Mid(strWhat, i, 1)) Xor etcEncodeKey

strResult = strResult & Chr(b)

Next

Encode = strResult

End Function

Thanks for help.

Jason

[Jon Skeet [C# MVP]]

Jason Huang <Ja************@hotmail.com> wrote:

I would like to convert the following Visual Basic code to C#, does someone
has free tool to convert it?

Try Instant C#:
http://www.instantcsharp.com/

--
Jon Skeet - <sk***@pobox.com>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too

[Cowboy (Gregory A. Beamer) - MVP]

Compile and use Roeder's Reflector is one option. Most of the .NET
"decompilers" create C# code.

--
Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA

***************************
Think Outside the Box!
***************************
"Jason Huang" wrote:

Hi,

I would like to convert the following Visual Basic code to C#, does someone
has free tool to convert it?

Function PreConnect() As Boolean

Dim strDSN$, strUidPwd$, strDatabase$, strConnect$

Dim hFile As Integer, strBuffer As String

' open and read

hFile = FreeFile

Open App.Path & "\" & etcBootFile For Input As hFile

Line Input #hFile, strBuffer

strUidPwd = Decode(strBuffer)

Line Input #hFile, strDSN

Line Input #hFile, strDatabase

Close hFile

' try connect

If strDSN = "" Or strUidPwd = "" Then Exit Function

strConnect = "ODBC;DSN=" & strDSN & ";" & strUidPwd & ";DATABASE=" &
strDatabase

' pre-connect

PreConnect = ConnAttemp(strConnect)

End Function

Function Decode(strWhat$) As String

Decode = Encode(strWhat)

End Function

' 5/23

Function Encode(strWhat$) As String

Dim i As Integer, strResult As String

Dim b As Byte

For i = 1 To Len(strWhat)

b = Asc(Mid(strWhat, i, 1)) Xor etcEncodeKey

strResult = strResult & Chr(b)

Next

Encode = strResult

End Function

Thanks for help.

Jason

[Jim]

That code is VB not VB.net

[David Anton]

(Thanks Jon)

Note that while not free, we do offer Demo Editions which convert snippets
up to 100 lines.

Note also that Instant C# only converts Microsoft.VisualBasic namespace
functions which have direct, unambiguous, functionally-equivalent methods in
the .NET Framework. The VB file functions are left as calls to the
Microsoft.VisualBasic namespace (but many string and date functions, MsgBox,
IIf, and constants are converted).

David Anton
www.tangiblesoftwaresolutions.com
Home of:
Instant C#: VB.NET to C# Converter
Instant VB: C# to VB.NET Converter
Instant J#: VB.NET to J# Converter

"Jon Skeet [C# MVP]" wrote:

Jason Huang <Ja************@hotmail.com> wrote:

I would like to convert the following Visual Basic code to C#, does someone
has free tool to convert it?

Try Instant C#:
http://www.instantcsharp.com/

--
Jon Skeet - <sk***@pobox.com>
http://www.pobox.com/~skeet
If replying to the group, please do not mail me too