Print 1#, "Errrrrrrrr"

**Sacofjoea** · Aug 2nd, 2000, 12:44 PM

Why doesn't this work

Code:

Print #1, Text1 & "Blah" & Text2

It just prints "text1" in the document, and doesn't print the text in Text one...why?

**QWERTY** · Aug 2nd, 2000, 12:52 PM

Did you open it for Output?
This works for me

Code:

Open "C:\windows\desktop\test.txt" For Output As #1
Print #1, Text1 & "Blah" & Text2
Close #1

What do you have in Text1? As default it is always "Text1" for TextBox1, "Text2" for TextBox2 and so on. Are you suru that you are changing the contest of the textbox?

[Edited by QWERTY on 08-02-2000 at 01:55 PM]

Aug 2nd, 2000, 01:23 PM

If it printed "Text1", you probably had quotes around it.

**shub** · Aug 2nd, 2000, 01:44 PM

Is Text1 a textbox? If it is you have to use Text1.Text. Same goes for Text2 if that is also a textbox.

Aug 2nd, 2000, 01:46 PM

Text is the default property for a TextBox, hence you can omit it.

**shub** · Aug 2nd, 2000, 02:41 PM

Oh yeah, silly me!

**kedaman** · Aug 2nd, 2000, 03:15 PM

Use option explicit, and it will notice you about undefined variables

**Sacofjoea** · Aug 2nd, 2000, 08:49 PM

Well...Im having trouble making the correct format for it... so here is what I am trying to do...

I want the program to print this vb command into the text file..

Code:

MsgBox "Their message from Text1", vbCritical, "Their title from the Text2"

**HeSaidJoe** · Aug 2nd, 2000, 09:00 PM

Code:

Private Sub Command1_Click()

    Dim strOne As String, strTwo As String
    strOne = Text1.Text
    strTwo = Text2.Text
    
    MsgBox strOne, vbCritical, strTwo
    
End Sub

**Sacofjoea** · Aug 2nd, 2000, 09:06 PM

Not quite...im trying to save it into a text file...

**HeSaidJoe** · Aug 2nd, 2000, 09:23 PM

what exactly do you want to save

the msgbox line itself or the variables that are
used in it.

**HeSaidJoe** · Aug 2nd, 2000, 09:28 PM

Code:

Private Sub Command1_Click()

    Dim strOne As String, strTwo As String
    strOne = Text1.Text
    strTwo = Text2.Text

    Open "c:\my documents\try.txt" For Output As #1
    Print #1, strOne
    Print #1, strTwo
    Close #1
    
    Open "c:\my documents\try.txt" For Input As #1
    Input #1, strOne, strTwo
    Close #1

    MsgBox strOne, vbCritical, strTwo
    
    
End Sub

**Sacofjoea** · Aug 2nd, 2000, 09:33 PM

but that just prints what they typed in the textbox...I want it to print the whole command i mentioned above...

**Sacofjoea** · Aug 2nd, 2000, 09:43 PM

I want to save this exact line into a txt file

MsgBox "Their message from Text1", vbCritical, "Their title from the Text2"

but...the messages would be Text1 and Text2 instead of what I put for the text...

Aug 2nd, 2000, 09:56 PM

Code:

Open "C:\myfile.txt" For Output As #1
Print #1, Text1.text & vbCritical & Text2.text
Close #1

That should work..for whatever you are trying to do.

Or are you trying to space it maybe?

Code:

Open "C:\myfile.txt" For Output As #1
Print #1, Text1.text &  Chr$(13) & Chr$(10) & Text2.text
Close #1

What the...are you trying to do?

[Edited by Matthew Gates on 08-02-2000 at 11:01 PM]

**Sacofjoea** · Aug 2nd, 2000, 10:11 PM

You guys are forgetting the MsgBox part...

Code:

    dlgMain.Flags = &H1000
    dlgMain.DialogTitle = "Open"
    dlgMain.Filter = "txt Files (*.txt)|*.txt|"
    dlgMain.CancelError = False
    dlgMain.ShowSave
    
    If Len(dlgMain.FileName) > 0 Then
        strFileName = dlgMain.FileName
        
Me.Caption = "Program - [" & dlgMain.FileTitle & "]"

Open dlgMain.FileTitle For Output As #1

If Option1.Value = True Then

'HERE
Print #1, "MsgBox " & """ & text1 & """ & ", vbCritical, " & """ & Text2 & """ 

Close #1
Else
End If

I want that to write

MsgBox "Their message from Text1", vbCritical, "Their title from the Text2"

into a text file...

Aug 2nd, 2000, 10:22 PM

Code:

Open "C:\Windows\Desktop\myfile.txt" For Output As #1
Print #1, "Msgbox " & Text1.Text & ", vbCritical, " & Text2.Text
Close #1

How's that? That should do the trick.

**Sacofjoea** · Aug 2nd, 2000, 10:29 PM

allright..i used that to get it...

Code:

Private Sub Command1_Click()
Open "C:\Windows\Desktop\myfile.txt" For Output As #1
Print #1, "Msgbox " & """" & Text1.Text & """" & ", vbCritical, " & """" & Text2.Text & """"
Close #1
End Sub

That finished it off...thanks all

Aug 2nd, 2000, 10:38 PM

Anyway, instead of using """", you should use Chr$(34) instead. That'll put the quotes around what you say. So instead of all that, you have:

Code:

Open "C:\Windows\Desktop\myfile.txt" For Output As #1
Print #1, "Msgbox " & Chr$(34) & Text1.Text & Chr$(34) & ", vbCritical, " & Chr$(34) & Text2.Text & Chr$(34)
Close #1

**kedaman** · Aug 3rd, 2000, 04:28 AM

Code:

Print #1, "Msgbox """ & Text1.Text & """, vbCritical, """ & Text2.Text & """"

two "" inside string quotes means a "

Thread: Print 1#, "Errrrrrrrr"

Thread Tools

Display

Print 1#, "Errrrrrrrr"

<?>

<?>

<?>...like this..

what a mess

Posting Permissions