Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: porownanie 2 ciagow liczb [help]
anonim




Typ: Nie zarejestrowany
porownanie 2 ciagow liczb [help]

Witam !

chodzi mi o porownanie 2 ciagow liczb, 1 ciag liczb jest to ip pobierane z tablicy
ip(1)=xxx.xxx.xxx.??"
ip(2)="xx.xxx.xxx.??"
ip(3)="xxx.xxx.xxx.??"

?? - oznacza wartosc ktora bedzie sie zmieniala
chodzi mi o to ze jesli jakas klasa ip znajduje sie na liscie to pokazuje np. komunikat 'OK' a jesli nie to komunikat 'brak ip.. w bazie'.

probowalem tak:
ip(1) = "195.111.222.*"
ip(2) = "10.111.111.*"

For ib = 1 To 2
    If podane_ip Like ip(ib) Then
    msgbox('ok')
    Else
    msgbox('brak...')
  End If
  Next ib

ip zostaly zmienione

prosze o odp. na mail (wytnij NOSPAM z adresu)

12-01-2004 17:36
  
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

for a1= len(ip(0)) to 1 step -1
if mid(ip(0),a1,1) = "." then exit for
next a1

for a2= len(ip(1)) to 1 step -1
if mid(ip(1),a2,1) = "." then exit for
next a2

if mid(ip(0),1,a1)= mid(ip(1),1,a2) then msgbox ("takie same"

mysle ze powinnno dzialac

13-01-2004 13:30
Pokaż profil kicaj  Wyślij email do kicaj        3914568
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Do prównywania ciągów jest funkcja StrComp

Sub PorownajCiagi()
Dim strTmp1 As String
Dim strTmp2 As String
Dim retVal As Long

strTmp1 = "192.168.0.1"
strTmp2 = "192.168.0.2"

retVal = StrComp(strTmp1, strTmp2, vbTextCompare)
If retVal = 0 Then
    MsgBox "Ciągi są równe", vbInformation, "Wynik porównania"
Else
    MsgBox "Ciągi są różne", vbExclamation, "Wynik porównania"
End If
End Sub


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

17-01-2004 17:16
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1