Script der henter informationer i en TXT fil

Brug FSO

http://www.sloppycode.net/fso/

Du forstår ikke - jeg ved ikke ret meget om hverken VB scrit eller JS


> 04/07/2002 17:57:36  L02  0              Line Activated
> 04/07/2002 17:57:36  L11  1    12345678  Call Requested
> 04/07/2002 17:57:36  L46  1              Voice Call Routed to Phone 1
> 04/07/2002 17:57:56  L47  1    12345678  Voice Call Connected
> 04/07/2002 18:02:58  L74  1              Disconnecting voice call
> 04/07/2002 18:02:58  L75  1              Voice Call Disconnected
> 04/07/2002 20:32:54  L02  0              Line Activated
> 04/07/2002 20:33:11  L47  1    12345679  Voice Call Connected
> 04/07/2002 20:36:47  L73  1              Voice Call Disconnected Remotely
Cause 16  Normal Disconnect
> 04/07/2002 20:36:48  L75  1              Voice Call Disconnected
> 04/07/2002 20:37:34  L04  0              Line Deactivated


Sådanne her kan en log fil se ud - og der ksal den så gå ind og sige

04/07/2002 17:57:36 12345678 Ringede
04/07/2002 17:57:56 12345678 Forbundet
04/07/2002 20:33:11 12345679 Forbundet

Her har du en total guide til hvordan du gør i ASP/VBScript:
http://www.asp101.com/articles/jacob/scriptupload.asp

I VBScript clientsided!

<script language="VBScript">
    Dim fso, file, stream
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\test.txt")
    MsgBox file.ReadLine
    file.Close
    Set stream = Nothing
    Set file = Nothing
    Set fso = Nothing
</script>

//>Rune

Her henter du fx alle linjerne:

<script language="VBScript">
    Dim fso, file, stream
    Set fso = CreateObject("Scripting.FileSystemObject")
        Set file = fso.OpenTextFile("C:\test.txt")
            While Not file.AtEndOfStream
                MsgBox file.ReadLine
            Wend
            file.Close
            Set stream = Nothing
        Set file = Nothing
    Set fso = Nothing
</script>

//>Rune

ja men jeg skal jo bare hente

fx. de linjer hvor der i 4 row står L47 - og der skal den så give mig row 6

uhm... der vil jeg nok gøre noget i den her retning

Læs filen med FSO
Find de linjer hvor der står L47
Lav et array med linjen hvor man splitter på mellemrummet
Tilpas en streng så det "står på dansk"

Ang. kode kommer det til at ligne noget ala det her


    L47 = "Forbundet"
    L11 = "Ringede"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\test.txt")
      While Not file.AtEndOfStream
            If InStr(file.ReadLine,"L47") Then
        arr = Split(file.ReadLine," ")
                str = str & arr(1) &" "& arr(2) &" "& arr(5) &" "& L47 & VbCrLf
            ElseIf InStr(file.ReadLine,"L11") Then
                arr = Split(file.ReadLine," ")
                str = str & arr(1) &" "& arr(2) &" "& arr(5) &" "& L11 & VbCrLf
            End If
      Wend
    file.Close
    Set file = Nothing
    Set fso = Nothing
    MsgBox(str)

Er på mobilen lige nu.. Prøver det lige af, når jeg sidder foran den stationere igen.. Nu rart at man såen kan se websider med sin nokia 7650 :d

er ik lige helt med?
Hvor meget mangler der på den kodE?

tja.. hvis den skal kunne gøre hvad der står her

Kommentar: djeclemen
27/12-2002 00:21:48

så er koden færdig... 99%... der skal jo lige rettes til hvor din fil ligger m.m.

skal det se sådanne ud?

script language="VBScript">
    Dim fso, file, stream
    Set fso = CreateObject("Scripting.FileSystemObject")
        Set file = fso.OpenTextFile("C:\test.txt")
            While Not file.AtEndOfStream
                MsgBox file.ReadLine
            Wend
            file.Close
            Set stream = Nothing
        Set file = Nothing
    Set fso = Nothing

  L47 = "Forbundet"
    L11 = "Ringede"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\test.txt")
      While Not file.AtEndOfStream
            If InStr(file.ReadLine,"L47") Then
        arr = Split(file.ReadLine," ")
                str = str & arr(1) &" "& arr(2) &" "& arr(5) &" "& L47 & VbCrLf
            ElseIf InStr(file.ReadLine,"L11") Then
                arr = Split(file.ReadLine," ")
                str = str & arr(1) &" "& arr(2) &" "& arr(5) &" "& L11 & VbCrLf
            End If
      Wend
    file.Close
    Set file = Nothing
    Set fso = Nothing
    MsgBox(str)

</script>

prøv den her, og nej... det skal bare gemmes i en sdf.vbs fil, uden det script, ting!

    L47 = "Forbundet"
    L11 = "Ringede"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\test.txt")
    While Not file.AtEndOfStream
   
    Linje = file.ReadLine
    If InStr(Linje,"L47") Then
        arr = Split(Linje," ")
        str = str & arr(1) &" "& arr(2) &" "& arr(5) &" "& L47 & VbCrLf
    ElseIf InStr(Linje,"L11") Then
        arr = Split(Linje," ")
        str = str & arr(1) &" "& arr(2) &" "& arr(5) &" "& L11 & VbCrLf
    End If
 
    Wend
    file.Close
    Set file = Nothing
    Set fso = Nothing
    MsgBox(str)

jeg har lige testet det, og det virker :)

jeps det virker da det jo er 200point - så føler jeg godt lige jeg kan spørge om ldit mere :D

Hvordan får jeg den til at vise nummeret også når den viser det - altså det der står før voicecall connected ALTID ved en L47

??

det er ikke så svært... hvis du kigger på den kode jeg har lavet, så kan du se at jeg har skrevet det her:

str = str & arr(1) &" "& arr(2) &" "& arr(5) &" "& L47 & VbCrLf

arr(1), 2 og 5 henviser til indexet i den streng vi har splittet...

det der sker når vi splitter f.eks. denne linje
> 04/07/2002 17:57:56  L47  1    12345678  Voice Call Connected

er at vi får det ud på denne måde:

0 >
1 04/07/2002
2 17:57:56
3 L47
4 1
5 12345678
6 Voice
7 Call
8 Connected

på den måde kan du altså selv bygge din streng op som du vil... hvis der f.eks. skal stå

04/07/2002 17:57:56 12345678  Voice Call Connected

så er det nr 1, 2, 5, 6, 7 og 8 du skal have fat i... er det helt volapyk, eller har jeg forstået dit spm forkert?

kan ikke få den til at vise nummeret lige gyldigt hvad jeg gør??

kan den også regne?

altså tage tiden i L47 - tiden i L74 og så komme med antal min?

djeclemen>> uhm... nej... du skal kende placeringen af nummeret i arrayet, og derefter skrive det ud med arr(index)...

ja, du kan sagtens regne, men igen... du skal kende placeringerne af dine tal. Der er en function i VBScript der hedder DateDiff, den kan fortælle dig forskellen mellem en tid og en anden, i sekunder, minutter, timer, dage, uger, år.. u name it.

tid1 = CDate("17:50:00")
tid2 = CDate("17:50:15")

MsgBox(DateDiff("s", tid1, tid2))

vil f.eks. vise dig tallet 15

var det ikke bedre du brugte lidt tid på at afslutte dine spørgsmål

Thx 4 Poinz

//>Rune