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]
|