Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Pętla
pawel
pvsp



Typ: neutral
Postów: 20
Zarejestrowany: Apr 2002
Pętla

witam,
Mam problem z konstrukcją petli która przeszuka mi 5 argumentow i sprawdzi czy nie sa puste. Jezeli nie sa puste to usunie wpis. Kod zrobilem nastepujaca:
-----------------------------------------------------
Private Sub Form_Load()
Dim a(100) As String
Dim i As Integer, intliczba As Integer
SaveSetting "cssgen", "css", "x", "x"
a(0) = GetSetting("cssgen", "css", "b1"
a(1) = GetSetting("cssgen", "css", "cd1"
a(2) = GetSetting("cssgen", "css", "cd2"
a(3) = GetSetting("cssgen", "css", "cd3"
a(4) = GetSetting("cssgen", "css", "cd4"


i = 0
For intliczba = 0 To 5
i = i + intliczba
If Not (a(i) = "" Then
DeleteSetting "cssgen", "css"
End If
Next intliczba


End Sub
-----------------------------------------------------
p. te usmieszki to nic innego niz ""

[Post edytowany dnia 11-10-2002 20:07 przez pawel]

11-10-2002 20:03
Pokaż profil pawel  Wyślij email do pawel   Odwiedź stronę pawel  
Wszystkich odpowiedzi: 0 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1