find ip adresser i en fil

Er det sådan du mener: (forskellige tegn mellem tallene..)


test.txt ->
Pia har 80 kr i sin lomme og for 150 kroner af sin far, nu har Pia 230 kroner, den bruger hun på et par nye sko som koster 199 kr.
<-

ip.txt ->
80.150.130.199
<-

andet.txt ->
Pia har kr i sin lomme og for kroner af sin far, nu har Pia kroner, den bruger hun på et par nye sko som koster kr.
<-

230 og ikke 130 :o)

ip.txt ->
80.150.230.199
<-

tegnet skal max være 1 karakter langt..
ex. 127:255;123-97 el. 127|255!123 97
resten ser rigtigt ud.. (altså med at smide ip'erne i ip.txt og resten i andet.txt)

programmet skal kun læse én byte ad gangen

kan det også være: ex. 127F255s123p97 el. 127u255K123W97

og skal de tegn så med i andet.txt
(FsP el. uKW)

ja det kan være alle tegn (0 - 255 ascii).
andet.txt skal indeholde ip adresserne som de står i ip.txt, så ja, de skal med..

noaz: Kan du ikke komme med et eksempel på hvordan test.txt ser ud - eller har sjh forstået det (jeg har ikke) og kastet sig over opgaven?

martin_moth >lav du bare den.. jeg har ikke tid lige nu.. skulle bare lige høre. :-)

her er et eksempel på test.txt:
ip  97.255,73!161    - info: xxx_blablabla
en anden ip 121a46Q62Z164, det er en ip. blalba
x y z bla ip asd asd blabla97ñ121z164$62blabla <- ip

det virker måske lidt uoverskueligt, men programmet skal altså kunne hente ip adresserne ud af en sådan tekst..

jeg har lige smækket pointene op på 100..

sjh: Jeg har sgu heller ikke tid ;o) - sidder her og er på overarbejde en weekend :o(

noaz: Jeg forudsætter, at en IP-adresse ikke er "delt" over mere end en linie. Hvis det er tilfældet, ville jeg gøre det således:

Læs filen ind i et array (arrOriginal()), med en linie på hver plads i arrayet.

a.
Loop over arrOriginal()'s poster, og for hver post ser du om der indgår et ciffer (0-9) i strengen.

b.
Findes der IKKE et ciffer, smider du posten over i en tilsvarende post i arrText()

c.1.
Findes der et ciffer, kikker du på de næste 13 pladser, og tjekker om de overholder syntaksen for et IP nummer. Gør de ikke det, smider du posten over i en tilsvarende post i arrText()

c.2.
Er syntaksen overholdt, og det dermed er et IP-nummer, napper du du hele nummeret med Mid() og smider det over i en post i arrIP(), og vha. Mid() laver du et "rigtigt" IP-nummer med punktummer og ikke alt muligt andet.
Igen vha. Mid() napper du resten af strengen - det der stod foran og bagefter IP-nummeret og smider den over i en tilsvarende post i arrText()

Efter alt dette vil du have 3 arrays:

arrOriginal() - hele filen med een linie indlæst i hver post
arrText() - Magen til arrOriginal men UDEN IP-numre
arrIP() - et array med et antal poster svarende til det antal IP'ere der er i filen.

Så er det bare at skrive disse arrays til filen.

Altsammen helt banalt VB, ikke noget 'genialt' i min løsning. Du har brug for et loop, en InStr(), en Mid(), en ReDim og lidt andet. Skal du tage højde for, at et IP-nummer er "delt" over mere end en linie, eller at der kan stå flere IPnumre på samme linie, bliver der lidt mere at tage højde for. Men det er ikke umuligt.

Good luck :o)

PS: Det ville vvære nemmere hvis du vidste, at der altid var et bestemt tegn lige før eller efter et IP nummer, så du kunne søge efter det. Sådan er der så mange hvis og hvis'er :o)

det er altsammen meget godt, men det er altså et must, at filen bliver læst byte for byte (som før skrevet)..

jeg har nu selv skrevet programmet og har derfor ikke brug for mere hjælp..
martin_moth: du får 50 point..

Byte for byte - mener di ikke karakter for karakter. Nå - du fik løst problemet :o)