Load to textbox:[resolved]

[|2eM!x]

Heres my code for a little text editor:

Option Explicit
Dim ff As Integer
Dim sInput As String
Dim stRfile As String
Dim foundpos As Integer
Dim strLine As String
 
Private Sub Load_Click()
 
   sInput = InputBox("Load file name:")
   
   If StrPtr(sInput) = 0 Then
      Print vbNullString
   ElseIf StrPtr(sInput) <> 0 And sInput = "" Then
      MsgBox "Please type a filename!"
   Else
      stRfile = sInput & ".txt"
       ff = FreeFile()
            Open stRfile For Input As #ff 'open text
                   
End If
End Sub
 
Private Sub Save_As_Click()
ff = FreeFile()
 
   sInput = InputBox("Save file as:")
   
   If StrPtr(sInput) = 0 Then
      Print vbNullString
   ElseIf StrPtr(sInput) <> 0 And sInput = "" Then
      MsgBox "Please type a filename!"
   Else
      Open sInput & ".txt" For Output As #ff
      Print #ff, Text1.Text
      Close #ff
   End If
End Sub

how do i load the file i just found into my text1.text?

[dglienna]

text1.text = input(lof(ff),ff)

[Luke K]

Use the following. But, instead of appending the .txt in your code to the string you used to specify the file name, type it in manually.

Private Sub Load_Click()
Dim stringDataL As String
sInput = InputBox("Load file name:")
   
If StrPtr(sInput) = 0 Then
      Exit Sub
ElseIf StrPtr(sInput) <> 0 And sInput = "" Then
      MsgBox "Please type a filename!"
Else
    ff = FreeFile()
    Open sInput For Input Lock Write As #ff 'open text
        While Not EOF(ff)
            Line Input #ff, stringDataL
            With Text1
                .Text = .Text & (stringDataL) & vbCrLf
            End With
        Wend
    Close #1
End If
End Sub

[|2eM!x]

yay! thanks, what do i need to let the user select what position they want to save to?
i know i need the drive list, dir list, and drive list box, or whatever..but i dont want those ugly squares coming up.
is there a way to let them choose where to save like in word or anything?

[Luke K]

Use the CommonDialog control, then use the following code in a savebutton.

With CommonDialog1
    .InitDir = "C:"
    .FileName = "MyFile.txt"
    .Filter = "Text File (*.txt)|*.txt"
    .DialogTitle = "Locate where you want to save your text file"
    .ShowSave
    Open .FileName For Output Lock Read As #1
        Print #1, Text1.Text & vbNullChar
    Close #1
End With

[|2eM!x]

how would i do loadbutton then?
thanks alot for that one ^^

edit*
heres what i got:

Private Sub Load_Click()
 With CommonDialog1
    .InitDir = "C:"
    .FileName = ""
    .Filter = "Text File (*.txt)|*.txt"
    .DialogTitle = "Load file:"
    .Showload
    Open .FileName For Input As #1
        Print #1, Text1.Text & vbNullChar
        Text1.Text = Input(LOF(ff), #ff)
    Close #1
End With
End Sub

[dglienna]

so that's what lock read and lock write do!

[|2eM!x]

hehe, i could tell that was a hint : )

but what do i put instead of .ShowOPEN!!

okay..
got it,

now:

Private Sub Load_Click()
 With CommonDialog1
    .InitDir = "C:"
    .FileName = ""
    .Filter = "Text File (*.txt)|*.txt"
    .DialogTitle = "Load file:"
    .ShowOpen
      Open .FileName For Input Lock Write As #1
        For Input #1 = Text1.Text
        Text1.Text = Input(LOF(ff), #ff)
    Close #1
End With
End Sub

[dglienna]

.showopen will show the open dialog.

Private Sub txtBackUp_Click()
  Dim oCDBForm As New frmCommonDialog
  x = lblSetup(1).Left + lblSetup(1).Width
  y = lblSetup(1).Top
  oCDBForm.Move x, y
  With oCDBForm.CommonDialog1
    .DialogTitle = "Select BackUp File to use"
    .InitDir = RealPath
    .Filter = "BackUp Files (*.old)|*.old|All " & _
        "Files (*.*)|*.*"
    .Flags = _
        cdlOFNFileMustExist + _
        cdlOFNHideReadOnly + _
        cdlOFNLongNames + _
        cdlOFNExplorer
    .CancelError = False  ' Change to trap cancel True
    .ShowOpen
    txtBackUp.Text = .FileName
  End With
  Unload oCDBForm
  Set oCDBForm = Nothing
End Sub

This is what I use. I have a Common Dialog Control by itself on a form that is small. I use it for all the dialogs in my app. I subclass it like shown. This is when clicking on a textbox, it puts the selected filename in the textbox.
The same dialog works for printing, saving, and everything else.

[|2eM!x]

userdefined type not defined

Dim oCDBForm As New frmCommonDialog

[dglienna]

never mind. I'll upload it. the label is where I move it to. you could substitute the button, or a label or whatever you want. even 0,0
it just moves the new form.

[|2eM!x]

i dont understand waht the heck that is..or what im supposed to do

[dglienna]

unzip it to your program directory, and you will have the frmCommonDialog.frm
Just right click in the properties area (where the forms are) and click ADD FORM, then click existing, then double-click on my form. Then it will be in your program. Then save it so that it will be in there in the future.

[|2eM!x]

done:
now it wont make the .exe and says " sub or function not defined"

can you tell me how to do it with the common dialog above?
that way was easier..

[dglienna]

Don't you have Option Explicit in all modules? And Compie on Demand?
That would show the error. Do you have all variables defined? It sounds like you misspelled a module name (function or subroutine) they should be easy to check. btw - you are using the Common Dialog.

[|2eM!x]

then whys it look so different? and have a picture box?
ill report back with results--i dont know what to do!



sub or function not defined over lblsetup..
i dont have labels...

and i have option explicit on..

why cant i use this?

With CommonDialog1
    .InitDir = "C:"
    .FileName = ""
    .Filter = "Text File (*.txt)|*.txt"
    .DialogTitle = "Save file to:"
    .ShowOpen
    Open .FileName For Output Lock Read As #1 '}
        Print #1, Text1.Text & vbNullChar ' |- These three i have no idea what to do to change to load it..
    Close #1  ' }
End With

[dglienna]

Oh. in my form, it is going to move the common dialog control right next to the label! Oops. forgot about that. Just pick a control on your form that you want the Common Dialog to appear next to. Then set the x and y of the new form to someone close to the control
(use any control that you want)

x = mycontrol.Left + mycontrol.Width
y = mycontrol.Top

[dglienna]

why do you even have a picturebox? maybe you should post some code.

[|2eM!x]

got it: heres my code for opening/loading!

Private Sub load_Click()
 With CommonDialog1
        .Filter = "Text (*.txt)|*.txt"
        .InitDir = "c:\"
        .ShowOpen
    End With
       Open CommonDialog1.FileName For Input As #1
    Text1.Text = Input$(LOF(1), #1)
    Close #1
End Sub
 
Private Sub Save_As_Click()
 With CommonDialog1
    .InitDir = "C:"
    .FileName = ""
    .Filter = "Text File (*.txt)|*.txt"
    .DialogTitle = "Save file to:"
    .ShowSave
    Open .FileName For Output Lock Read As #1
        Print #1, Text1.Text & vbNullChar
    Close #1
End With
End Sub

now the cancel button gives errors, so im gonna look up top at that trap cancel button shizat

edit** cant get it to work..
also i get this with a file i edit in my text editor(if it has spaces) "input past end of file error 62"

[dglienna]

You could use On Error statements.

[|2eM!x]

what would that do/how do i use them..(if its something besides the obvious <<)

edit**
figured that out..
but it seems what happends is this:
it saves the file and adds 1 line of {enter} then a few spaces
that gives the error..
once i delete all the spaces it loads it and stuff..
anyone know whats wrong?

[dglienna]

Private Sub Save_As_Click()

With CommonDialog1
    .InitDir = "C:"
    .FileName = ""
    .Filter = "Text File (*.txt)|*.txt"
    .DialogTitle = "Save file to:"
    .ShowSave
    on error goto CD_Error ' won't happen ever!
    Open .FileName For Output Lock Read As #1
        Print #1, Text1.Text & vbNullChar
    Close #1
 End With
   exit sub  ' normal exit
CD_Error:
   on error goto 0 ' reset error trap
   end with  ' close with
   debug.print "Error in Save File!"
End Sub     ' error exit

You can also use ON ERROR RESUME NEXT, but those are the hardest to debug properly.

[|2eM!x]

now nothing happends...(doesnt show errors = good),(not knowing what im doing=bad)

why does it add like 5 spaces afterwards??

figured it out..
Print #1, Text1.Text & vbNullChar
should be
Print #1, Text1.Text

what does vbnullchar mean?
edit**
now just to figure out how to make bold/italics..know what dll does it?

edit2**
how do i make the text1.text resize with the form?

[dglienna]

take out vbnullchar. its for strings that have to have the null character (like some API's must have)

to resize, just use the form.width and form.height. I'm not good at doing it. If the for is 400, the text box is 325 to 350 but if it is
only 200, then textbox is only 125 to 140 or so.

put commans in the resize event.


here is an example.

[|2eM!x]

thx, it works good enough..you know about that dll thing?

[dglienna]

a little here and there. what do you need to know?

[|2eM!x]

now just to figure out how to make bold/italics..know what dll does it?

ps, how do i check this on my own

[dglienna]

I think you have to use a Rich Text Box to get any fancy formatting. You can choose the font, but that's about it for the listbox. Even MSN is a RTB. Word is also a RTB. It's really the only way to do this. Pretty heavy stuff.

[|2eM!x]

didnt know there was one of those : )

okay, 2 questions
how do i make the scrollbar? the scrollbars thing doesnt do squat..
also, it saves to the text box, but say i type this:
Yay im happy.aoscnmd a sdf.

this will come up upon load:
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 Yay im happy.aoscnmd a sdf.
\par }


anyway to delete all that garbage/not show it?

[dglienna]

you open it in wordpad, which know about the files, and can show the formatting that you do. you can also create forms in word in rtf format.

scrollbars should be automatic when the data gets too big for the view. I've never had to do anything except turn them on if I wanted them to appear.

[|2eM!x]

okay, got everything working..saving as an rtb and all..if i change the color, then save, then load it--it wont be in color itll look like this:

{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}
{\colortbl ;\red0\green0\blue255;\red255\green0\blue0;\red0\green255\blue0;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs17 sdgsagafe\cf2 fsagasfgadsg\cf3 afgfagafdgad\cf4 afgafsdgadf\cf0 
\par }

any ideas?
should i have it search it, and if a color is found then the letters after it = vbcolor?

[dglienna]

you can't read the file that way. you have to use the rtf command to read the file. I use this:

rtbReceipt.LoadFile RealPath & "ReceiptFile.rtf"

[|2eM!x]

hmm..you didnt tell me what your variabled were so i did this:

Private Sub load_Click()
Dim realpath As Variant
Dim rtbReceipt As Variant
 With CommonDialog1
    On Error Resume Next
        .Filter = "Rich Text File (*.rtf)|*.rtf"
        .InitDir = "c:\"
        .ShowOpen
        .CancelError = False
    End With
       Open CommonDialog1.FileName For Input As #1
   rtbReceipt.LoadFile realpath & "ReceiptFile.rtf" = Input$(LOF(1), #1)
    Close #1
End Sub

i dont understand how to get the rtbReceipt.LoadFile realpath & "ReceiptFile.rtf" into my textbox

[dglienna]

sorry. you over-complicated things. the rtbreceipt is my richtextbox. change it to your own. i don't load the filename, it is supplied by my program. you would do the same thing that you had before, but change the file extension to rtf.

rtbReceipt.LoadFile CommonDialog1.FileName

[|2eM!x]

RichTextBox1.LoadFile = Input$(LOF(1), #1)

argument not optional

[dglienna]

RichTextBox1.LoadFile CommonDialog1.FileName

[|2eM!x]

YES.YOU ROCK

if i ever become better than you, and you need help, you can always ask me..k?

[dglienna]

OK. Will do.