Als kurze Erklärung:
G-MoN ist ein sehr witziges Tool für Android mit dem man Wardriving über das Handy machen kann - inklusive GPS-Tracking der gefundenen Hotspots. Ich hab mir das heute mal auf das Handy geschmissen und bin mal ne Runde um den Block gelaufen - funktioniert super. Das Problem war nur das die Exportfunktion eine *.txt-Datei erstellt hat mit unschöner Formatierung für das Auge - alle Datenblöcke mit ";" getrennt. Also was lag näher als ein kleines Skript zu schreiben das die Datei ausließt und alles in eine Excel-Tabelle einträgt?

Das Script ist in AutoIt geschrieben(hatte ich gerade zur Hand) und funktioniert natürlich nur auf einem Windowsrechner mit installiertem AutoIt und Excel

Alternativ habe ich das Script nochmal fix Compilert(Excel wird immer noch benötigt) - siehe Anhang

Ist jetzt nicht das hübscheste was es gibt(wurde nur fix hingerotzt) aber es erledigt seinen Job...

Achja die gmon_wlan.txt muss im selben Ordner wie die *.exe sein^^

Zitat von Script

#include<File.au3>
;Oeffnen
$gmon_file = FileOpen("gmon_wlan.txt", 0)

;Test
If $gmon_file = -1 Then
    MsgBox(0, "Fehler", "Konnte gmon_wlan.txt nicht öffnen")
    Exit
EndIf

;Einlesen und Splitten
$gmon = FileRead ($gmon_file)
$split = StringSplit($gmon, ";")

$zeile_max = Ubound($split) / 10

;Excel oeffnen
$app = ObjCreate("Excel.application")
$app.Visible = true
$app.workbooks.add

$eintrag = 2
$app.Cells(1,1).Value = "BSSID"

For $zeile = 1 to $zeile_max
For $spalte = 2 to 11

;hervorheben der Verschluesselung
If ($spalte = 5) Then
If ($split[$eintrag] = "Open") Then
$app.Cells($zeile,$spalte).Interior.ColorIndex = 4
EndIf
If ($split[$eintrag] = "Wep") Then
$app.Cells($zeile,$spalte).Interior.ColorIndex = 10
EndIf
If ($split[$eintrag] = "WpaPsk") Then
$app.Cells($zeile,$spalte).Interior.ColorIndex = 3
EndIf
If ($split[$eintrag] = "WPA2") Then
$app.Cells($zeile,$spalte).Interior.ColorIndex = 30
EndIf
EndIf

;Spliten von Zeit und BSSID
If ($spalte <> 11) Then
$app.Cells($zeile,$spalte).Value = $split[$eintrag]
Else
If ($zeile = 1) Then
$trim = StringTrimRight($split[$eintrag], 17)
$app.Cells($zeile,$spalte).Value = $trim
$trim = StringTrimLeft($split[$eintrag], 4)
$app.Cells($zeile+1,1).Value = $trim
Else
If ($zeile <> $zeile_max) Then
$trim = StringTrimRight($split[$eintrag], 17)
$app.Cells($zeile,$spalte).Value = $trim
$trim = StringTrimLeft($split[$eintrag], 8)
$app.Cells($zeile+1,1).Value = $trim
Else
$app.Cells($zeile,$spalte).Value = $split[$eintrag]
EndIf
EndIf
EndIf

$eintrag = $eintrag + 1

Next
Next

FileClose($gmon_file)

gmon2xls.7z (Size: 539.85 KByte)

---

mfg mutterschiff

---