|
xxx
Utility Belt:
FileAppend (from string) Demo
by Charles Carroll
The code below calls "Utility Belt" functions.
The FileAppend (from string) is one demo of Database "Utility Belt" functionality.
filename=/experiments/utilitybelt/vercurrent/ubdemo_fileappend_string.aspx
<%@ debug="true" %>
<%@ import namespace="system.environment"%>
<%@ Assembly src="utilitybelt.vb" %>
<script language="VB" runat="server">
dim ub1 as new LearnAsp.utilitybelt()
Sub Page_Load(S As Object, E As EventArgs)
ub1.Options("Debug-on,Xray-To-Page-On")
DIM strTest as string
dim lb as string="<br>" & newline
strTest="Line 1" & lb & "line 2" & lb & "line 3" & lb
dim strFileName as string=request.PhysicalApplicationPath() & "data\test.txt"
ub1.FileWrite(strFileName,strTest)
strTest=newline & "extra junk added to end of file"
ub1.FileAppend(strFileName,strTest)
ub1.Xray(ub1.FileRead(strFileName) & "<br>","contents of " & strFileName)
End Sub
</script>
<html><head><title>Utility Belt Demo</title></head>
<body bgcolor="#FFFFFF">
<form runat="server"></form>
</body></html>
 |  |  |
|
There are many worthy charities!!. But perhaps help starving children in Africa or South America AND help Charles too.
a $5 tip buys him lunch at McDonalds,
a $20 tip buys his kid Hitoshi a new computer game,
a $39 tip buys his daughter Michiko a few nice outfits.
See our donor list.
| |
 | |  |
|
|
|
|