Im Array suchen

Hallo Markus,

werds gleich mal versuchen....Thanks.

Muss nur noch mit Bascom Basic funktionieren.

Gruß

Const Maxint = 10

Dim Ar(maxint) As String * 5
Dim Suchstr As String * 8

Suchstring = "1234"

For I = 1 To Maxind
   If Ar(i) = Suchstr Then Exit For
Next


Ha! Ganz einfach... Und nun versuchst dus vielleicht nochmal, mit etwas 
mehr Infos... Was fuer ein Array z.B...

Beste Gruesse

das hört sich ja verdammt gut an ;-)

ich habe ein Array mit ca.400 Zeichen im Format Hex.
Das Array nennt sich Key(j).
Im Endeffekt muss ich dieses Array durchsuchen, ob eine bestimmte 
Zeichenfolge vorkommt. Die gesuchte Zeichenfolge besteht aus 5 Zeichen.

Gruß

Hmpf... also nochmal.

... mit 400 Zeichen im Format Hex. Das verstehe ich so (willkuerlich 
gewaehlte Werte):

key(1) = "01"
key(5) = "EF"
bis
key(200) = "AB"

Das macht 400 Zeichen in Hex aber ich weiss nicht, ob das das ist, was 
du suchst.
Oder heisst es vielleicht key(5) = "8", also ohne fuehrende 0?

Schreib am besten mal etwas mehr als 2 Saetze zu deinem Projekt, denn so 
kommt damit niemand klar.

Beste Gruesse

Hallo Andre,

also....mein Projekt zu beschreiben würde glaube ich den Rahmen hier 
sprengen...
Ein part davon ist, Daten von einem iButton zu lesen. Das auch wunderbar 
klappt. Diese Daten werden in ein Array eingelesen.
z.B: Key(1) = "31" für die Zahl 1
Wie gesagt die Zeichen mit 400 sind nur willkürlich gewählt...was ja 
eigenltich auch nichts zur Sache tut.
Auf jeden Fall muss in dem Array nach einer Zeichenfolge gesucht 
weden...wie schon beschrieben.
Natürlich muss die zu suchende Zahl auf im Hex-Format zur verfügung 
stehen.

Gruß

Ich hab garkeine Ahnung von Basic, aber wie wärs einen Index i 
hochlaufen lassen bis laenge-4 und dann immer
das i-te, i+1-te...i+4-te Zeichen zusammenfügen und mit dem Suchstring 
vergleichen.

Noch schneller wäre es von 0 bis laenge-1 durchzugehen und nach dem 
ersten Zeichen des Suchstrings zu suchen. Wenn der gefunden wird, wird 
eins weiter nach dem zweiten geschaut, wenns da ist, nach dem dritten, 
sonst wieder nach dem ersten suchen. Hoffe du hast es verstanden.

Dim Datar(30) As Byte
Dim Datstr As String * 25 At Datar Overlay

Dim Lks As String * 5

Dim A As Byte


Datar(1) = $50
Datar(2) = $50
Datar(3) = $31
Datar(4) = $32
Datar(5) = $33
Datar(6) = $34
Datar(7) = $35
Datar(8) = $31


Lks = "12345"

Datar(30) = 0                                               'endnull. 
wichtig fuer instr()
A = Instr(1 , Datstr , Lks)

@Andre,

vielen Dank für deine Hilfe!!
Genau das habe ich gesucht!!

Merci!!


Gruß