dotNETportal.cz

Dobrý den, mám tenhle kód:

Dim i As Integer
        Dim Zalomeni As String
        Dim a As String
        Zalomeni = Chr(13) & Chr(10)
        a = "http://www.katalog-avon.cz/kniha/pages/00"

        If (i >= 10) Then
            a = "http://www.katalog-avon.cz/kniha/pages/0"
        End If

        If (i >= 100) Then
            a = "http://www.katalog-avon.cz/kniha/pages/"
        End If


        For i = 1 To 50
            TextBox1.Text = TextBox1.Text & a & i & ".jpg" & Zalomeni
        Next i

Po dvou letech sem se vrátil k VB a chtěl sem si udělat cyklus, aby mi nahrazoval proměnou a v cyklu i. Jenomže, se mi nenahrazuje to a. Nevíte kde dělám chybu? Asi se pudu zahrabat.

 Dim i As Integer
        Dim Zalomeni As String
        Dim a As String
        Zalomeni = Chr(13) & Chr(10)
        a = "http://www.katalog-avon.cz/kniha/pages/00"

        For i = 1 To 215
            TextBox1.Text = TextBox1.Text & a & i & ".jpg" & Zalomeni

            If (i >= 10) Then
                a = "http://www.katalog-avon.cz/kniha/pages/0"
            End If

            If (i >= 100) Then
                a = "http://www.katalog-avon.cz/kniha/pages/"
            End If
        Next i

Poviem Vám niečo, čo zvykne na také príspevky hovoriť p. admin: Pre označenie blokov kódu používajte tlačidlo VB code.

Vím to, chtěl jsem to opravit, ale bohužel to nefungovalo

Nezaregistrovaní nemajú možnosť úpravy svojich príspevkov.Ak si myslíte, že to potrebujete, zaregistrujte sa.

Docela by mě zajímalo proč vyhodnocujete proměnou "i", když ji deklarujete až v kódu, takže je při vyhodnocení prvních podmínek vždy prázdná ?

Ty podmínky bych zpřehlednil následovně

Dim myHttp as string = "http://www.katalog-avon.cz/kniha/pages/

Select Case i
 case > 10
  myHttp &= "0"
 case > 100
  'Tady se nic nemění, takže nemá smysl něco nastavovat
 case else
  myHttp &=  = "00"
End select 

A ten cyklus slouží k čemu ? Naplní se to textem a co dál ?

For i = 1 To 50
 TextBox1.Text &= myHttp & i & ".jpg" & Zalomeni
Next i

Nicméně, začněte tím, že to vyhodnocování proměnné "i" by mělo mít nějaký smysl, tzn., že by neměla být statická ale skutečně proměnná.

Mám tam jednu hloupost, kterou jste měl taky :-)

Když totiž proměnná "i" splní první podmínku

tak následně splní i druhou a řetěce se Vám tam spojí.

Ale už jsem pochopil o co vám jde.

Zkuste tohle

Dim myHttp As String = "http://www.katalog-avon.cz/kniha/pages/"
For i = 1 To 150
  TextBox1.Text &= myHttp & Format(i, "000") & ".jpg" & vbNewLine
Next i