[es] - vb: Select Case vs If Then

uraa
Jugoslav Jeftenic
Subotica

Član broj: 31277
Poruke: 14
93.87.103.*

Profil

^{12.10.2009. u 16:00 - pre 176 meseci}

Code:

    Private Sub readIni()
        Dim oRead As System.IO.StreamReader
        Dim oWrite As System.IO.StreamWriter
        Dim strIniLine, strExePath As String

        'Provera da li postoji "miskopisko.ini"
        If Not System.IO.File.Exists("miskopisko.ini") Then
            oWrite = System.IO.File.CreateText("miskopisko.ini")
            oWrite.WriteLine("[ExePath]D:\miskopisko\miskopisko.exe")
            oWrite.Close()
        End If

        'Citam vrednosti iz "miskopisko.ini"
        oRead = IO.File.OpenText("miskopisko.ini")
        Do While oRead.Peek <> -1
            strIniLine = oRead.ReadLine()
            If strIniLine.Contains("[ExePath]") Then
                strExePath = strIniLine.Substring(8)
            End If
        Loop
    End Sub

Interesuje me da li ovaj zadnji "If" mogu da zamenim sa Select Case posto cu u ovom ini-ju imati jos desetak setovanja pa bi bilo lepse sa Select-om nego sa ElseIf-ovima, ali donji kod mi ne radi a na web-u ne nalazim slicne primere.

Code:

        Select Case strIniLine
            Case strIniLine.Contains("[ExePath]")
                strExePath = strIniLine.Substring(8)
        End Select

Hvala unapred.

Odgovor na temu

marko_81
Marko Acović

Član broj: 97248
Poruke: 133
93.86.104.*

+1 Profil

Re: vb: Select Case vs If Then

^{13.10.2009. u 08:48 - pre 176 meseci}

Nisam odavno nista radio u VB-u, ali koliko vidim strIniLine.Contains("[ExePath]") vraca Boolean a ti u select-u proveravas Stringove.
Zato ti ne radi.

Odgovor na temu

uraa
Jugoslav Jeftenic
Subotica

Član broj: 31277
Poruke: 14
93.87.251.*

Profil

Re: vb: Select Case vs If Then

^{13.10.2009. u 20:33 - pre 176 meseci}

U knjizi iz koje vezbam pise da se mogu koristiti svi uslovi kao i u If-u pa nisam znao da Boolean ne radi.

Hvala na odgovoru.

Odgovor na temu