.exe saven door gebruiker?

[Thomisback]

Hoi,

Ik heb onlangs een project gemaakt en gebruikers moeten zelf gegevens invoeren in textboxen, de bedoeling is dat het programma die opslaat als diege op een button klikt.

Zou iemand weten hoe je dit kan doen?

Alvast erg bedankt!

~ Thomisback

 

[Guus2005]

More information requested!

Waarin wil je die gegevens opslaan? Is redelijk belangrijk.

Ik zou ook even vóór je computer zitten. Daar waar het toetsenbord ook is, dat scheelt.

 

[Thomisback]

Waarin wil je die gegevens opslaan? Is redelijk belangrijk.

Misschien gewoon in een text bestandje, settings.txt ofzo? (Heb van dit soor dingen niet echt veel verstand)

Ik zou ook even vóór je computer zitten. Daar waar het toetsenbord ook is, dat scheelt.

...Huh?

 

[That Guy]

opslaan in een textbestand:

Private Function savetofile(path as string, DataToSave as string)
Dim hFile As Long
Dim sFilename As String
sFilename = path
hFile = FreeFile
   Open sFilename For Output As #hFile
      Print #hFile, DataToSave
   Close #hFile
End Function

V. :thumb:

 

[Thomisback]

opslaan in een textbestand:

Private Function savetofile(path as string, DataToSave as string)
Dim hFile As Long
Dim sFilename As String
sFilename = path
hFile = FreeFile
   Open sFilename For Output As #hFile
      Print #hFile, DataToSave
   Close #hFile
End Function

V. :thumb:

Bedankt! Maar als ik dit dus in de code zet, leest hij er de volgende keer dan ook weer van als je hem opstart?

Is er niet een mogelijkheid om in een text bestand te zetten

Text1.text = Hoi

Ofzoiets? Dat zou een stuk makkelijker zijn.

Alvast bedankt!

 

[That Guy]

text1.text = hoi
dat zet alleen in een textbox de text "hoi"

maar als je wilt dat jou programma bij het opstarten een textdocument opent en dat in een textbox neerzet, gebruik ik altijd deze code:

Public Function LoadFileToTB(FilePath As _
   String, Optional Append As Boolean = False) As Boolean
Dim iFile As Integer
Dim s As String
If Dir(FilePath) = "" Then Exit Function
On Error GoTo ErrorHandler:
s = Textx.Text
iFile = FreeFile
Open FilePath For Input As #iFile
s = Input(LOF(iFile), #iFile)
If Append Then
    Textx.Text = Textx.Text & s
Else
    Textx.Text = s
End If
LoadFileToTB = True
ErrorHandler:
If iFile > 0 Then Close #iFile
End Function

je moet deze code nog wel even aanpasssen, "textx" is de textbox waar de text in komt te staan.


V.:thumb:

 

[Thomisback]

Hey!

Erg bedankt!

Nog 1 vraag, betekent het dat hij nu leest van s.txt? Want ik weet niet precies van welk bestand hij de gegevens leest.

Nogmaals bedankt!

 

[That Guy]

ik zal de code per regel uitleggen ;-)

Public Function LoadFileToTB(FilePath As _
   String, Optional Append As Boolean = False) As Boolean
'dimentioneer de variabelen
Dim iFile As Integer
Dim s As String
'kijk of het bvestand dat je wiolt openen wel bestaat, anders stopt-ie met de functie
If Dir(FilePath) = "" Then Exit Function
On Error GoTo ErrorHandler:
'zeg dat de variabele "s" (dat is een text-reeks) de variabelen uit Textx moet halen
s = Textx.Text
'nodig om een bestand te openen... deze regels zijn 'standaard' en moet je niets aan veranderen!
iFile = FreeFile
Open FilePath For Input As #iFile
s = Input(LOF(iFile), #iFile)
If Append Then
'hier haalt hij teken voor teken de gegevens in je textdocument (.txt bestand) op, en zet ze in Textx
    Textx.Text = Textx.Text & s
Else
    Textx.Text = s
End If
LoadFileToTB = True
ErrorHandler:
'als het 'fout' gaat:
If iFile > 0 Then Close #iFile
End Function

je roept de functie aan door:

LoadFileToTB "C:\mijnbestand.txt"

hij stopt dan de text uit mijnbestand.txt in de textbox genaamt Textx



V.:thumb:

 

[Thomisback]

Bedankt het is gelukt!

 

[That Guy]

zet je de dan vraag dan even op "opgelost?" (hieronder rechts van de pagina)

V.:thumb: