Keskustelu: Ohjelmointikysymykset: VB6: txt editori *VB*

Kuinka sais oman teksti editorin tallentamaan, avaamaan ja printtaamaan tekstiä?

Sen pitäisi tallentaa teksti kohteesta txtpad.text

Tässä ohjeita tiedostojen käsittelystä:
https://www.ohjelmointiputka.net/oppaat/opas.php?tunnus=vbo_8

ummh... tarkoitin CommonDialogin avulla.. unohdin sanoa...

commondialog1.filter = "All files *.*|*.*"
commondialog1.showopen

if len(commondialog1.filename) > 0 then
open commondialog1.filename for output as #1
print #1, "tekstiä"
close #1
end if

Tuotako tarkoitat?

Jotain sinne päin...

Ehkäpä ennemminkin:

EDIT:

Private Sub tallennan_Click()
On Error GoTo cancel
CommonDialog1.Filter = "Tekstitiedostot (*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As #1
Print #1, txtpad.Text
'txtpad.Text:n tilalle laitat sen minkä haluat tallentaa
Close #1
Exit Sub
cancel:
Exit Sub
End Sub

Joo... Yllä olevalla tavalla toimii tallentaminen...

Tuo yllä oleva tapa on siis Tallenna Nimellä mutta, voisikos joku kertoa miten onnistuu Avaa ja tavallinen Tallenna ja Printtaaminen?

Ja vielä lisäksi jos joku kertoisi onko olemassa jonkinlaista "Textboxia"`johon saa kuvia ja saako textboxiin jotenkin fontin vaihdettua?

The Znottari kirjoitti:

Ja vielä lisäksi jos joku kertoisi onko olemassa jonkinlaista "Textboxia"`johon saa kuvia ja saako textboxiin jotenkin fontin vaihdettua?

Tavalliseen textboxiin et saa kuvia, mutta fontin voit kyllä vaihtaa.

Text1.FontName = "Wingdings"

Kiitos hunajavohveli!

hunajavohveli kirjoitti:

Tavalliseen textboxiin et saa kuvia

En edes tarkoittanut tavallista textboxia vaan jotain sen tyyppistä =)

Niin ja onko niitä ohjeita Tallentamiseen, Printtaamiseen ja Avaamiseen??

Kiitos jo etukäteen... =)

The Znottari kirjoitti:

Avaa

Sama, mutta Printin tilalle Do Until EOF(1) : Line Input -looppi

The Znottari kirjoitti:

tavallinen Tallenna

Sama, mutta jätä tuo tiedostonimen kysyminen käyttäjältä commondialogilla pois.

The Znottari kirjoitti:

Printtaaminen?

Printer.Print teksti

The Znottari kirjoitti:

Ja vielä lisäksi jos joku kertoisi onko olemassa jonkinlaista "Textboxia"`johon saa kuvia

RichTextBox

Tiedoston lukemiseen:

Private Function Luefilu(Tiedosto As string) As String

  Open tiedosto for input as #1
       do until eof(1)
          line input #1, rivi
          tmp = tmp & rivi & vbcrlf 'line input taitaa napata itse rivinvaihdon pois, joten lisätään se
          doevents
       loop
  Close #1

  luefilu = tmp

End Function

Kutsu tätä funktiota vaikka näin:

text1.text = luefilu("c:\jeejee.txt") 'jos ei toimi ota sulut pois, en ny muista pitääkö vai eikö niitä pidä tossa olla.

Tiedoston kirjoittamiseen:

Private function kirjoitafilu(tiedosto as string, data as string)

   open tiedosto for output as #2
        print #2, data
   close #2

end function

ja tätä kutsu näi:

'kirjoittaa tiedostoon "C:\jeejee.txt" text1 sisällön.
kirjoitafilu "C:\jeejee.txt", text1.text

Kaikki koodit heitetty ihan lonkalta ja kirjoitettu nopeasti, eli on myös mahdollista että jonneki ois joku bugi jääny..

Kuvien laittamiseen se rtfbox tjsp?

Kuinka RichTextBoxii saa noi scrollbarit? et jos menee kirjotus yli sen boxin rajan ni silti jatkuu sen scrollbarin takii..