Ok were trying to make a program that can create a web template (of sorts, I guess, were just supposed to show furtherment in our coding knowledge) and we need to know how to use some sort of filewrite command or write to file?
Ring any bells?
Printable View
Ok were trying to make a program that can create a web template (of sorts, I guess, were just supposed to show furtherment in our coding knowledge) and we need to know how to use some sort of filewrite command or write to file?
Ring any bells?
To write to a file, you must open it,
VB Code:
That code opens (creates the file if not there) a file called file.txt in the application folder, writes "Blah" then closes it...
You could also use freefile() to assign the filenumber so you dont use one that is already open:
VB Code:
HTH
Dave
u might need to put a blackslash on that open line like this:
open app.path & "\file.txt" for output as #1
otherwise if your app path was for example "C:\myfolder", your file would be outputted to "C:\myfolderfile.txt"
i think Dunghill_Dave just made a typo
Private Sub Form_Load()
Open App.Path & "file.txt" For Output As #1
Write #1 "Blah"
Close #1
End Sub
it says it needs a list seperator whats a list seperator?
is the / thing a seperator
Argg, i always forget that...
VB Code:
or
VB Code:
Dave
i think dave made another typo, lol
try:
write #1, "Blah"
in general, ',' is the list seperator
actually, better still, use print instead of write, cause i think write put quotation marks around data. just replace the word write with print
Open App.Path & "\file.txt" For Output As #1
Write #1, "Blah"
Close #1
It says invalid outside procedure. Why doesn't it allow app?
Man this is hopeless! I should have opened up VB to make sure it worked before i posted!
Typo? did you copy and paste that or re-write it? it worked fine for me....Quote:
Originally posted by amyblueeyes
Open App.Path & "\file.txt" For Output As #1
Write #1, "Blah"
Close #1
It says invalid outside procedure. Why doesn't it allow app?
Also, i aggree, if you are creating a web template, you wont want the " " round the info...
Dave
i just tried it too, works fine
use print instead like this
VB Code:
i think you're just having a bad day dave...happens to everyone...
yay! one more post till ive made 100....uh....i mean....yay! 100 posts! in just a few days too...W00T!!!!
ok...calm down....breathe in......and out....
I cut and pasted the code tried changing it to print. It still doesn't like the app.
can you zip and send your project, i'll go through in debug mode for you
actually I have no "project" yet all I had was that bit of code. Im just trying to get a hang of it in order to try and attempt said project in the making.
come to think of it, invalid outside procedure must mean you havent put that code into a subroutine....try this...
VB Code:
all code except declaration and dim's must be in Subs
ok we finally have it all planned out.
We need to make a program that takes whatever someone types in a textbox then they click a button and it automatically "writes" I guess to an html file.
Well, tht shouldnt be too hard --- i guess.
VB Code:
You could edit this code to include <title>text2</title> tags etc. Also, in text1, you can use html tags such as <b>bold</b>
HTH
Dave
Sub Command1_Click()
Open "c:\file.htm" For Output As #1
Print #1, "<html><body>" & Text1 & "</body></html> "
Close #1
End Sub
ok I have the text box and I have button so I know that's not wrong. I have file.htm in the c drive right in the open and it still won't work.
why?
Hmmm, weird - is your button called command1? Also, you wont actually see the fil open, this program will open it in the background as it were, nothing visual happens. If you go to c:\ you may find your file there.
HTH
Dave
whoops.
yeah it is called command 1 and text1.
I did expect something visual to happen.
whoops.
Yeah it works XD
Option Explicit
' -------------------------------------------------------
Dim Highres As String
Dim Title As String
Dim Datey As String
Dim Media As String
Dim Desc As String
Dim WebpageLoc As String
Private Sub cmbPublish_Click()
'saves the file. Or, you know, publishes it.
cdPublish.Filter = "HTML files (*.html; *.htm)|*.html; *.htm| All files (*.*)|*.*"
cdPublish.ShowSave
End Sub
Private Sub cmdBrowse_Click()
Call RandomDimming
cdBrowse.Filter = "supported image files (*.jpg; *.gif)|*.jpg; *.gif| All files (*.*)|*.*"
cdBrowse.ShowOpen
'If txtWebpageLoc.Text = "" Then
'txtFile.Text = cdBrowse.FileTitle
'Else:
txtFile.Text = WebpageLoc
'& cdBrowse.FileTitle
'End If
End Sub
Private Sub cmdExit_Click()
' Gives user option to exit
If MsgBox("Are you sure you wish to exit ?", vbYesNo, "Quit") = vbYes Then Unload Me
End Sub
Private Sub cmdHigRes_Click()
Call RandomDimming
cdHighRes.Filter = "supported image files (*.jpg; *.gif)|*.jpg; *.gif| All files (*.*)|*.*"
cdHighRes.ShowOpen
If txtWebpageLoc.Text = "" Then
txtHighRes.Text = cdHighRes.FileTitle
Else: txtHighRes.Text = WebpageLoc & cdHighRes.FileTitle
End If
End Sub
Private Sub RandomDimming()
txtHighRes.Text = Highres
txtFile.Text = Image
txtTitle.Text = Title
txtDate.Text = Datey
txtMedia.Text = Media
txtDesc.Text = Desc
txtWebpageLoc.Text = WebpageLoc
End Sub
Ok we need the img browser thing to automatically pop the name into the textbox and for it to be put in after the web address box.
I'm no sure as i understand - but;
webaddressbox = (webaddressbox) & "/" & (textbox with filename in)
That sort of thing?
BTW, what does your program do?
Dave
wer just trying to make a template automatically pop up for a website and you can stick whatever you want on it.
I think.