Program to extract ip adresses from log file

Hvordan ser din log-fil ud?
Prøv at vise de første 5 linier her. Jeg vil tro, et lille VBscript program kan klare det for dig, men jeg må lige se, hvordan din fil er opbygget.

programmet skulle gerne kunne bruget til forskellige log filer, kan man ikke få programmet til at søge efter de 4 punktumer.
her er et par linier fra log fil.
[20:50:55]  {1:0:1}  193.253.51.236 has 592
[20:50:55]  {1:0:1}  220.255.110.246 has sent #102:81920->98304
[20:50:55]  {1:0:1}  195.54.71.3 has 1925
[20:50:55]  {1:0:2}  220.255.110.246 is asked for #24:16384->32768
[20:50:55]  {1:0:1}  24.225.176.157 is unchoking you

Lidt simple operationer i excel skulle kunne klare den sag let

Man kan godt søge efter de 3 punktummer. MEn det vil være lettere at lave, hvis man ved, at de forskellige dele altid er adskilt af mellemrum.
I det viste eksempel er IP-adressen altså det 3. "ord".

Her er et VBscript-program, der løser dit aktuelle problem:

Option Explicit
dim Filsystem, stream1, stream2,tekst,A
Set FilSystem=CreateObject("Scripting.FileSystemObject")
Set stream1=filsystem.openTextFile("log.log")
set stream2=filsystem.openTextFile("Ipadresser.txt",8,true)

while not stream1.AtEndOfStream
  tekst=stream1.readline()
  tekst=Replace(tekst,"  "," ")
  A=split(tekst," ")
  stream2.writeline(A(2))
wend
stream1.close
stream2.close
MsgBox "Nu ligger IP-adresserne i filen IPadresser.txt"


Du skal blot gemme det med navnet f.eks. IPadr.vbs og anbringe det i samme mappe som din log-fil. Jeg har kaldt log-filen for log.log, men du kan jo ændre dette.
Programmet samler alle IP-adresserne i en tekstfil med navnet IPadresser.txt. Hver adresse står på sin egen linie.

Bare for lækkert, Takker. Jeg må hellere lære VB script.

Selv tak, det var så lidt. Takker for point.
Ja VBscript kan faktisk gøre utrolig meget.