Söka efter ett ord i logg fil (.txt)

Permalänk
Hedersmedlem

Söka efter ett ord i logg fil (.txt)

har en logg fil som ser ut såhär:

=============================================
Skickades den: 2007-06-02 kl: 23:35:25
Nummer: xxxx
Meddelande: bla bla bla
=============================================
Skickades den: 2007-06-02 kl: 23:37:38
Nummer: xxxxxxxx
Meddelande: bla bla bla bla
=============================================
Skickades den: 2007-06-02 kl: 23:41:20
Nummer: xxxxxxxx
Meddelande: bla bla
=============================================

finns det på något sätt man kan söka efter just ordet "meddelande" och se hur många "meddelande" ord det finns i loggen?

i detta fall är det just 3st "meddelande" , men i själva loggan finns det flera hundra st...

loggen som skapas är i .txt format...

tacksam för ett snabbt svar...

Permalänk
Medlem

en enkel php-snurra kanske ?

en loop som stegar upp en räknare...

Visa signatur

Har varit på detta forum på tok för länge...

Permalänk
Hedersmedlem

finns det inget windows program som kan räkna orden då? typ som att man skriver in "medelande" o sedan räknar den antal ord som den kan hitta

eller finns det inget macro som man kan skriva i MS Word som räknar ett viss ord??

Permalänk
Medlem

Finns inte find.exe (.com) kvar sedan dos i kommandotolken ?

Permalänk
Medlem
Citat:

Ursprungligen inskrivet av zoomster
Finns inte find.exe (.com) kvar sedan dos i kommandotolken ?

ju då find finns kvar i cmd. Räkna vet jag dock inte

Permalänk
Medlem

Kanske 'find /c "meddelande" fil.txt'.

Permalänk
Hedersmedlem

jag har hittat ett macro script till word där den söker efter ett valfritt ord.. enda grejen är att jag måste själv skriva in "meddelande" i själva sök rutan.. är det någon som är bra på script som vet hur koden ska se ut för att SLIPPA skriva in sök ordet hela tiden? så att ordet "meddeLANDE" AUTOMATISKT dyker upp i sök fältet? såhär ser macro scriptet ut:

Sub Find()

Dim MyCount As Integer
Dim MyWord As String
Dim Total As Integer
Dim intI As Integer

'Prompt the user for the word to search for.
MyWord = InputBox("Skriv Meddelande i fältet")

'Select the entire document
Selection.WholeStory

'Count the total number of words in the document
Total = Application.Selection.Range.Words.Count

'Enumerate through each word selected, removing leading
' and trailing spaces
For intI = 1 To Total

With Selection.Words(intI)

If Trim(.Text) = MyWord Then
MyCount = MyCount + 1
End If

End With

Next intI

'Display results
MsgBox "Found " & MyCount & " occurrences of: " & MyWord & _
" out of a total of: " & Total & " words"

End Sub

Permalänk
Medlem

men fy vad jobbigt ni gör det. I linux hade man gjort

cat loggfil.txt | grep "Meddelande:" -c

Det _måste_ finnas nått liknande för windows med. Funkar inte zoomsters förslag?

Permalänk
Medlem

Byt ut
MyWord = InputBox("Skriv Meddelande i fältet")
mot
MyWord = "Meddelande"

?

Permalänk
Hedersmedlem
Citat:

Ursprungligen inskrivet av Alvedon
Byt ut
MyWord = InputBox("Skriv Meddelande i fältet")
mot
MyWord = "Meddelande"

?

tack så hemskt mycket, det funka

Permalänk
Medlem
Citat:

Ursprungligen inskrivet av iveqy
Det _måste_ finnas nått liknande för windows med. Funkar inte zoomsters förslag?

Jo, det borde fungera.

Permalänk
Medlem

zoomsters förslag är ju inte helt perfekt. Söker man ordet "hej", kommer t.ex "hejsan" med.

Permalänk

Annars går "Sök Alla" i Word helt utmärkt.

Visa signatur

AMD Athlon 64 3700+ | 2GB RAM | Gainward 7800GT | Maxtor Diamondmax 200GB | Seagate Barracuda 320GB | Western Digital 80GB
Core 2 Duo E6420 | Abit F-I90HD | 2GB RAM | Antec NSK2400 | Seagate Barracuda 320GB