Volgend VisBas vraagje

Thread View: be.comp.programming

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Sven Daems Thu, 20 Nov 2003 20:12

#3643

Author: Sven Daems
Date: Thu, 20 Nov 2003 20:12

51 lines
3274 bytes

Hoi

Ik ben in de vorige topic goed geholpen maar nu zit ik terug vast. De
gebruiker moet ergens een standaard path vast kunnen leggen. Dat wil zeggen
dat het programma, elke keer als het opstart naar die path gaat. Die
standaard waarde kan de gebruiker opgeven in een apart venstertje,
formuliertje (menu bestand => opties). De waarde die daar verkregen wordt in
een variable LocatieMap1 opgeslagen. De bedoeling is dus dat de volgende
keer dat het programma opstart (nadat bv de computer al is afgezet en al, de
data moet dus op de schijf worden weggeschreven worden) de variable
LocatieMap1 wordt geladen met dezelfde data als de vorige keer in
LocatieMap1 staat. In de functie LocatieMap1_Wegschrijven wordt die data
weggeschreven in een textbestandje. Dat gebeurd ook echt, er bestaat echt
een bestandje LocatieMap1.txt waar de data in staat weggeschreven (deze
wordt bij elke wijziging gewoon overschreven, dus de data staat gewoon op de
eerste lijn).

Maar als het programma terug gestart wordt, dan wordt de functie
LocatieMap1_Start uitgevoerd. De data uit het bestandje LocatieMap1.txt moet
terug in de variable LocatieMap1 komen te staan, en dat doet de computer dus
niet. Ik zou niet weten wat er fout is aan het scriptje, omdat ik het bijna
letterlijk heb overgenomen van de MSDN library. Iemand een idee?

Met vriendelijk groeten

Sven Daems


Public Sub LocatieMap1_Wegschrijven()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile "C:\LocatieMap1.txt"
    Set f = fso.GetFile("C:\LocatieMap1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write LocatieMap1
    ts.Close
End Sub


Public Sub LocatieMap1_Start()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fso, f, ts
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile("C:\LocatieMap1.txt")
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    LocatieMap1 = ts.ReadAll
    ts.Close
End Sub

Re: Volgend VisBas vraagje

#3645

Author: TRAX
Date: Thu, 20 Nov 2003 22:07

14 lines
1693 bytes

heb de code gekopi�erd en bij mij werkt die wel (heb de locatiemap1 gewoon
een string genomen, hij schrijft het weg en leest het in (plaatst het in elk
geval in een tekstbox...
variabelen fs, t en fso zijn wel niet gedeclareerd n eerste functie, zal
schoonheidsfoutje zijn
LocatieMap1_Start  staat toch in de form_load event?
misschien moet je dit eens proberen in LocatieMap1_Wegschrijven()
ts.Write(locatiemap1)

ts.save()

ts.Close()

werkt zonder ook maar misschien is er een verschil....

Re: Volgend VisBas vraagje

#3646

Author: TRAX
Date: Thu, 20 Nov 2003 22:09

65 lines
2490 bytes

> ts.Write(locatiemap1)
>
> ts.save()
>
> ts.Close()
>
vergeet maar, geeft geen syntax fout maar wel error bij runnen, zal even
mijn code kopi�ren, bij mij werkt alles perfect.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

locatiemap1 = "jaja"

LocatieMap1_Wegschrijven()

LocatieMap1_Start()

End Sub

Public Sub LocatieMap1_Wegschrijven()

Const ForReading = 1, ForWriting = 2, ForAppending = 3

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim fso = CreateObject("Scripting.FileSystemObject")

fso.CreateTextFile("C:\LocatieMap1.txt")

Dim f = fso.GetFile("C:\LocatieMap1.txt")

Dim ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)

ts.Write(locatiemap1)

ts.save()

ts.Close()

End Sub



Public Sub LocatieMap1_Start()

Const ForReading = 1, ForWriting = 2, ForAppending = 3

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim fso, f, ts

fso = CreateObject("Scripting.FileSystemObject")

f = fso.GetFile("C:\LocatieMap1.txt")

ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

LocatieMap1 = ts.ReadAll

ts.Close()

TextBox1.Text = locatiemap1

End Sub

Re: Volgend VisBas vraagje

#3649

Author: Sven Daems
Date: Fri, 21 Nov 2003 14:49

2 lines
1310 bytes

Weeral iets heel stom van mij. 'k was vergeten een verwijzing naar die
Functie te zetten. Ni moeilijk dat't niet werkte :p Toch bedankt

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads