---

Hejsa..
Jeg har et lille problem, håber at nogle kan hjælpe. Jeg er meget newbie, så
jeg har sikkert programmeret meget dumt, eller svære end det kunne have
gjort, men dette forstår jeg noglelunde.
Programmet er et lille program der skal kunne holde styr på mit Internet
forbrug, og skal gemme det i en TXT fil og kunne hente det igen.
Her er min kode:

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Option Explicit
Dim Tid As Date
Dim Tid2 As Date
Dim Varighed(200) As Date
Dim Nr As Integer
Dim TidS As String
Dim Tid2S As String
Dim VarighedS(200) As String
Dim Streg As String

*** Jeg har lavet en del Variables, da det er nemmere at regne osv. med ***

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Private Sub cmdGem_Click()
Dim Nr2 As Integer
Streg = " --------- "

TidS = Tid
Tid2S = Tid2
VarighedS(Nr) = Varighed(Nr)

Open "C:\programering\Visual Basic programering\Internet\Internet.txt" For
Output As #1
For Nr2 = 1 To Nr
Print #1, "Opkald startet : "; Tid
Print #1, "Opkald sluttet : "; Tid2
Print #1, "Varighed : "; Varighed(Nr)
Print #1, Streg
Next
Close #1
End Sub

*** Dette gemmer det i en fil. Den gemmer fint bortset fra at hvis der er en
gemt i txt filen fx.
Opkald startet : 02-Jan-01 17:40:05
Opkald sluttet : 02-Jan-01 17:40:06
Varighed : 00:00:01
---------
Så når jeg gemmer igen med en ny "værdi" Laver den det gamle gemte om til
det nye samtidig med at den laver en ny dvs. Hvis jeg har det der står over
her i min TXT fil og jeg gemmer en ny hvor der står
Opkald startet : 02-Jan-01 18:45:05
Opkald sluttet : 02-Jan-01 18:45:09
Varighed : 00:00:04
---------
Så skulle der stå, den gamle først og neden under skulle der stå den nye,
men der står to ens nemlig først den nye og så neden under en til af den
nye. (Håber at i forstår) ***

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Private Sub cmdHent_Click()
Nr = 0
Open "C:\programering\Visual Basic programering\Internet\internet.txt"
For Input As #1
Do While EOF(1) = False
Nr = Nr + 1
Line Input #1, TidS
Line Input #1, Tid2S
Line Input #1, VarighedS(Nr)
Line Input #1, Streg
Loop
Close #1
List1.AddItem TidS
List1.AddItem Tid2S
List1.AddItem VarighedS(Nr)
List1.AddItem Streg
End Sub

*** Dette skulle hente en gemt "værdi". Den skrev at variablen skulle være
det samme eller sådan noget, så jeg lavede dem alle om til "Strings" og så
duede den, men den henter KUN én af dem der er gemt, jeg tror at det er den
første, jeg vil gerne have at den henter dem alle og skriver ind i en
listbox, som jeg har på min form ***

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Private Sub cmdSlut_Click()
Nr = Nr + 1
Tid2 = Format$(Now(), "mm/dd/yy HH:mm:ss")

List1.AddItem "Opkald sluttet: " & Tid2

Varighed(Nr) = Format$(Tid2 - Tid, "hh:mm:ss")

List1.AddItem "Varighed " & Varighed(Nr)
List1.AddItem " --------- "
List1.AddItem ""

cmdStart.Enabled = True
cmdSlut.Enabled = False
End Sub

*** Hehe her kommer mine START og SLUT knapper, der starter med at skrive i
listboxen, hvad tidspunkt det er osv. ***

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Private Sub cmdStart_Click()
Tid = Format$(Now(), "mm/dd/yy HH:mm:ss")

List1.AddItem "Opkald startet: " & Tid

cmdSlut.Enabled = True
cmdStart.Enabled = False
End Sub

*** Min START knap ***

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Jeg vil også gerne have en knap, der går ind og printer, TXT filen ud i
Printeren. Men først skal jeg have det til at du, med gem/hent osv
..
BTW [(B)y (T)he (W)ay] så er jeg somsagt newbie, men hvis du har bedre måder
at stille d

---

Py ha

nu er jeg ikke selv en ørn i VB men skulle jeg lave det ville jeg have 2
variabler f.eks

GammeleData og NyeData

inden jeg så skriver vil jeg åbne filen og læst teksten ind i variablen
gamle data og så skrive dem begge ned i den nye fil.

print #1 GammelData & NyData


"Kristian Pelle" <kristian.pelle@get2net.dk> skrev i en meddelelse
news:3NSe6.149$qv4.2615@news.get2net.dk...
> Hejsa..
> Jeg har et lille problem, håber at nogle kan hjælpe. Jeg er meget newbie,
så
> jeg har sikkert programmeret meget dumt, eller svære end det kunne have
> gjort, men dette forstår jeg noglelunde.
> Programmet er et lille program der skal kunne holde styr på mit Internet
> forbrug, og skal gemme det i en TXT fil og kunne hente det igen.
> Her er min kode:
>
> /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
>
> Option Explicit
> Dim Tid As Date
> Dim Tid2 As Date
> Dim Varighed(200) As Date
> Dim Nr As Integer
> Dim TidS As String
> Dim Tid2S As String
> Dim VarighedS(200) As String
> Dim Streg As String
>
> *** Jeg har lavet en del Variables, da det er nemmere at regne osv. med
***
>
> /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
>
> Private Sub cmdGem_Click()
> Dim Nr2 As Integer
> Streg = " --------- "
>
> TidS = Tid
> Tid2S = Tid2
> VarighedS(Nr) = Varighed(Nr)
>
> Open "C:\programering\Visual Basic programering\Internet\Internet.txt" For
> Output As #1
> For Nr2 = 1 To Nr
> Print #1, "Opkald startet : "; Tid
> Print #1, "Opkald sluttet : "; Tid2
> Print #1, "Varighed : "; Varighed(Nr)
> Print #1, Streg
> Next
> Close #1
> End Sub
>
> *** Dette gemmer det i en fil. Den gemmer fint bortset fra at hvis der er
en
> gemt i txt filen fx.
> Opkald startet : 02-Jan-01 17:40:05
> Opkald sluttet : 02-Jan-01 17:40:06
> Varighed : 00:00:01
> ---------
> Så når jeg gemmer igen med en ny "værdi" Laver den det gamle gemte om til
> det nye samtidig med at den laver en ny dvs. Hvis jeg har det der står
over
> her i min TXT fil og jeg gemmer en ny hvor der står
> Opkald startet : 02-Jan-01 18:45:05
> Opkald sluttet : 02-Jan-01 18:45:09
> Varighed : 00:00:04
> ---------
> Så skulle der stå, den gamle først og neden under skulle der stå den nye,
> men der står to ens nemlig først den nye og så neden under en til af den
> nye. (Håber at i forstår) ***
>
> /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
>
> Private Sub cmdHent_Click()
> Nr = 0
> Open "C:\programering\Visual Basic programering\Internet\internet.txt"
> For Input As #1
> Do While EOF(1) = False
> Nr = Nr + 1
> Line Input #1, TidS
> Line Input #1, Tid2S
> Line Input #1, VarighedS(Nr)
> Line Input #1, Streg
> Loop
> Close #1
> List1.AddItem TidS
> List1.AddItem Tid2S
> List1.AddItem VarighedS(Nr)
> List1.AddItem Streg
> End Sub
>
> *** Dette skulle hente en gemt "værdi". Den skrev at variablen skulle være
> det samme eller sådan noget, så jeg lavede dem alle om til "Strings" og så
> duede den, men den henter KUN én af dem der er gemt, jeg tror at det er
den
> første, jeg vil gerne have at den henter dem alle og skriver ind i en
> listbox, som jeg har på min form ***
>
> /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
>
> Private Sub cmdSlut_Click()
> Nr = Nr + 1
> Tid2 = Format$(Now(), "mm/dd/yy HH:mm:ss")
>
> List1.AddItem "Opkald sluttet: " & Tid2
>
> Varighed(Nr) = Format$(Tid2 - Tid, "hh:mm:ss")
>
> List1.AddItem "Varighed " & Varighed(Nr)
> List1.AddItem " --------- "
> List1.AddItem ""
>
> cmdStart.Enabled = True
> cmdSlut.Enabled = False
> End Sub
>
> *** Hehe her kommer mine START og SLUT knapper, der starter med at skrive
i
> listboxen, hvad tidspu