Hejsan

Jag har en FileListBox som läser in filer från valfritt ställe..
Nu vill jag ifall man dubbelklickar på en txt fil så ska han öppna den i
en textbox.. Men Har ingen aning hur man läser in från en FileListBox till en TextBox..
Någon som har något exempel...

Första problemet med att läsa till en textbox... har blivit löst.

Ett av Andreas Hillqvist inlägg fans lösningen

Men nu funderar jag över ifall man gör någon ändring i texten så ska den sparas..
dit har jag kommit

Hej, du skulle kunna använda en richtextbox istället o köra:

richtextbox1.loadfile
richtextbox1.savefile

ang sökvägar så kan du ta sökvägen som filelistboxen "tittar" i och sedan
får du filnamnet med: file1.filename


'Ladda fillistan med "c:\windows":
<code>
Private Sub Form_Load()

File1.Path = "c:\windows"

End Sub
</code>

'öppnar filen du dubbelklickar på
<code>
Private Sub File1_DblClick()
RichTextBox1.LoadFile File1.Path & "\" & File1.FileName
End Sub

</code>

'sparar filen varje gång den ändras
<code>
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
RichTextBox1.SaveFile File1.Path & "\" & File1.FileName

End Sub
</code>


detta borde väl ändå va en ok lösning? den går givetvis att finslipa men som grundtanke funkar den väl?

kan jag få lite synpunkter på hur ni andra skulle göra?
O sven: skit nu i om jag har lite stavfel:)

Hm antingen så missa jag det att han fått det o funka med textboxen eller så har han editerat sitt inlägg efter jag la in mitt?


Antar att vi ska köra med textboxen då?

Nu vågar jag inte engagera mig mer i detta, sven kommer väl in o e spydig snart.....

Lycka till.

Jag har en ListFilBox där alla filer med Ändelsen *.txt visas
trycker jag på ett dokument så visar/öppnar han det i en textbox...

Om jag gör någon ändring i texten så skulle jag vilja spara...
Där har jag kört fast...

Jag bifogar all code så ni ser lite vad jag har gjort


<code>
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
ChDir Dir1.Path
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo feldrive
ChDrive Drive1.Drive
Dir1.Path = Drive1.Drive
Exit Sub
feldrive:
MsgBox "Det finns ingen disk", , "fel"
End Sub

'Den hära delen hittade jag på foumet som läser in
'filen till en textbox
Private Sub File1_Click()
Text1 = ReadFile(Dir1.Path & "\" & File1.FileName, 1000)
End Sub


Public Function ReadFile(FileName As String, Optional Bytes As Long = -1) As String
Dim iFile As Integer
If Bytes Then
iFile = FreeFile()
Open FileName For Binary Access Read As #iFile
If Bytes > 0 And Bytes < LOF(iFile) Then
ReadFile = Space(Bytes)
Else
ReadFile = Space(LOF(iFile))
End If
Get #iFile, , ReadFile
Close #iFile
End If
End Function

Private Sub Form_Load()

End Sub


</code>

Så frågan är hur jag gör en funktion som
sparar den texten som finns i textboxen efter ändringarna

Lägg till denna:

<code>

Public Function WriteFile(FileName As String) As String
Dim iFile As Integer

iFile = FreeFile()

Open FileName For Output As #iFile
Print #iFile, Text1.Text

Close #iFile
End Function

</code>

Och denna:

<code>
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
WriteFile (Dir1.Path & "\" & File1.FileName)

End Sub

</code>

Tackar...
Coden löste allt...

va härligt:)

trevlig helg:)

laddade upp programet/koden
så ni kan rota runt och titta hur det färdiga allternativet vart

sök efter
TXT Reader så hittar ni det...


Tackar alla för hjälpen att skapa detta program

Hej, kollade in programmet, verkar va en smart grej, lite snabbare:)

En sak jag skulle vilja ha är:

När man valt en fil, som sedan visas i textrutan, och sedan klickar på annan mapp
och sedan på spara så får man nu error eftersom den inte hittar filnamnet.
Du skulle kunna spara den på ny plats då, med samma namn.

Kan jag ju ordna själv men det blir ett error som det e nu:)

bara en tanke:)

Sen ser jag att den inte visar hela filen:)

EDIT: om du gör egna radbrytningar så visas hela filen, om du bara skriver i filen i anteckningar utan att själv byta rad så visas inte hela....
ser nu att det e 1000 tecken.

"gnäll gnäll" hoppas du inte tar illa upp nu, vill bara påpeka lite:)

Alltid bra och höra vad folk tänker...
Detta var bara ett primitivt sätt att läsa txt filer utan att behöva
öppna alla en och en... Men om du/ni hittar andra sätt så är de välkommet. Därför skickade jag upp coden så ni kan finsjustera efter era önskemål...

Ok, ja grejen e ju bra tycker jag:)

/B