elikkä tässä ois vinkki tekstinkäsittelyyn eli savetuset yksinkertasesti ja avaaminen eli tee yks textbox (text1) jonka multiline trueksi ja scrollbaar both sitten tee command1 ja command 2
ja pistä niihin seuraavat koodit
Private Sub command1_Click()
Dim fso As Object
Dim rubba As String
Dim rubba2 As String
Dim asema As String
asema = InputBox("Asema", "Asema") ' inputboxi johon annetaan asema
rubba = InputBox("Anna nimi", "Nimi")' sama paitsi tiedosto nimi
rubba2 = InputBox("Anna tyyppi", "Tyyppi") ä tyyppi
Dim tiedosto As Object
Set fso = CreateObject("scripting.filesystemobject")
Set tiedosto = fso.opentextfile(asema & ":\" & rubba & "." & rubba2, 1) ' annetaan inputboxien vastaukset
Text1.Text = tiedosto.readline ' avataan teksti kenttään teksti
tiedosto.Close
End Subim fso As Object
Dim rubba As String
Dim rubba2 As String
Dim asema As String
asema = InputBox("Asema", "Asema")
rubba = InputBox("Anna nimi", "Nimi")
rubba2 = InputBox("Anna tyyppi", "Tyyppi")
Dim tiedosto As Object
Set fso = CreateObject("scripting.filesystemobject")
Set tiedosto = fso.createtextfile(asema & ":\" & rubba & "." & rubba2, True)
tiedosto.writeline Text1.Text
tiedosto.Close ' muuten sama mutta huomaa muutoksetjoo tosta yhestä kohtaa puuttuu d
Muokata voi. Eikö muuten voisi tehdä tätä tiedoston hakua yhtään kätevämmin :p
Aihe on jo aika vanha, joten et voi enää vastata siihen.