Read and write in Fuser in ASP

5.5.1 Creating a TextStream object There are three common methods to create or open a text file and return the Textstram object.

CreateTextFile (FileName, OverWrite, Unicode) Creates a new text file with the specified file name filename on the disk and returns a TextStream object corresponding to the file. If the optional OverWrite parameter is set to True, the same name file with the same path will be overridden. The default OverWrite is False. If the optional Unicode parameter is set to false, the content of the file will be stored as a Unicode format. The default Unicode is false OpenTextFile (filename, omode, create, format) open or create a file called FileName and returns the TextStream object corresponding to the file. The FileName parameter can contain absolute or relative paths. The Iomode parameter illustrates the required access type. The allowable value is Forreading (1) (default), ForWriting (2), FORAPPPpending (8).

When writing or appending to a non-existing file, if the CREATE parameter is set to True, a new file will be created. The default CREATE is False. The Format parameter illustrates the data format when reading or writing files. The allowable value is Tristatefalse (0) (default), illustrating the ASCII data format; TristateTrue (-1) Describes the Unicode data format; TristateUsesedefault (-2) Description Data Using System Default Format

OpenastextStream (Iomode, Format) opens a specified file and returns a TextStream object, which can be used to read, write, or append the file. The Iomode parameter illustrates the required access type. The allowable value is Forreading (1) (default), ForWriting (2), FORAPPPpending (8). The Format parameter illustrates the data format of the read and write file. The allowable value is Tristatefalse (0) (default), which illustrates the ASCII data format; TristateTrue (-1) Describes the Unicode data format; TristateuseDefault (-2) Description Use the method listed above using the system in FileSystemObject, Folder Unlike the implementation in the File object. As shown in Table 5-14: Table 5-14 Methods of Methods included in Table 5-14 FileSystemObject Object Folder Object File Object CreateTextFile There is no OpenASTextStream no, there is no, you can use these methods to create a new text file Or open an existing file. You can get a TextStream object with the file, you can use the properties and methods of the TextStream object to operate files. 1. Creating a new text file You can create a new text file with the CreateTextFile method or override an existing file. The returned TextStream object can be used to read and write files. First create a FileSystemObject object to create a TextStream object. The following example is to create a "normal" (ie unicode) named myfile.txt with VBScript, and override the existing same name file: set objfso = server.createObject ("scripting.filesystemObject") set objtstream = Objfso .CreateTextFile ( "C: /TextFiles/MyFile.txt", True, False) which likewise be implemented JScript: var objFSO = Server.CreateObject ( 'Scripting.FileSystemObject'); var objTStream = objFSO.CreateTextFile ( 'C: / TextFiles /Myfile.txt ', true, false; Once this file is created, ObjtStream (it is a reference to a TextStream object). 2. Open the existing text file OpenTextFile method is used to open an existing text file. It returns a TextStream object that can be read or added to the file with this object. Again, first create a FileSystemObject object and create a TextStream object with it.

The following VBScript program example opens a file named myfile.txt, ready to read its content: set objfso = server.createObject ("scripting.filesystemObject") set objtstream = objfso.opENTextFile ("c: /textfiles/myfile.txt ", ForReading) with JScript: var objFSO = Server.CreateObject ( 'Scripting.FileSystemObject'); var objTStream = objFSO.OpenTextFile ( 'C: /TextFiles/MyFile.txt', ForReading); In order to write a file or create a No files, you can use the following code: 'in vbscript: set objtstream = objfso.opentextfile ("c: /textfiles/myfile.txt", forwriting, true) // in jscript: var objtstream = objfso.opentextfile (' C : /TextFiles/myfile.txt ', forwriting, true); If you want to open an existing Unicode file, prepare to add data, but do not create a file that does not exist, you can use:' in vbscript: set objtstream = Objfso. OpenTextFile ( "C: /TextFiles/MyFile.txt", ForReading, _ False, TristateTrue) // In JScript: var objTStream = objFSO.OpenTextFile ( 'C: /TextFiles/MyFile.txt', ForReading, _ fasle, TristateTrue) ; 3. As a TextStream object opens a File object to open the file with the object's OpenASTextStream method to open the file corresponding to the object, and return a TextStream object that can read, write, and append the file.

So, given a File object (this case is not a FileSystemObject object) - ObjfileObject, you can open it as a "normal" TextStream object for additional file content: 'in vbscript: set objtstream = ObjfileObject .OpenastextStream (FORAPPENDING, FALSE) // IN jscript: var objtstream = objfileObject.opENTEXTFILE (ForaPpending, false); Note Because the file must already exist, if you want to start from a new empty file, you can use: 'in vbscript: set objtstream = objfileObject.openastextStream (forWriting) // in jscript: var objtstream = objfileObject.OpenTextFile (forwriting); if want to read the file: 'In VBScript: Set objTStream = objFileObject.OpenAsTextStream (ForReading) // In JScript: var objTStream = objFileObject.OpenTextFile (ForReading); 5.5.2 TextStream object members table 5-15 and table 5-16 Summary It is a list of all properties and methods for the TextStream object. The details of each important member will be briefly introduced. 1. The properties of the TextStream object The properties of the TextStream provide information about the current location of the file pointer within the file, as shown in Table 5-15. Note that all attributes are read-only. Table 5-15 Attributes and Description Properties of the TEXTSTREAM object Description AtendOfline If the file position pointer returns true atendofstream if the file position pointer returns true column from 1 Start Return to the list of current characters in the file Line From 1 Start Returns the line number of the current line of the current line and the ATENDOFSTREAM properties are only available to files that are opened by the iOmode parameter for Forreading, otherwise it will be wrong.

2. Table 5-16 shows the method of the TextStream object. ) As a single string reads the entire file readline () as a string reads a line from the file (until the Auto-Yarn and Punction) Skip (Numchars) When reading from the file, Ignore NumChars characters Skipline () when When reading the next line WRITE (String) Writing String String WriteLine (String) Write String String String WriteLine (optional) and wrap WriteBlankLines (n) Write n changefill 3. Write a text file Once you use createTextFile, OpenTextFile or OpenASTextStream method, you create a textStream object that corresponds to a file, you can write files and close files with the following VBScript program: 'In vbscript: objtstream.writeline "At Last I can create files with VBScript "objTStream.WriteLine objTStream.WriteLine" Here are three blank lines:!. "objTStream.WriteBlankLines 3 objTStream.Write" ... and this is "objTStream.WriteLine" the last line "objTStream.Close or a JScript: // In JScript: objTStream.WriteLine ( 'At last I can create files with JScript!'); objTStream.WriteLine (); objTStream.WriteLine ( 'Here are three blank lines:'); objTStream.WriteBlankLines (3 ); ObjtStream.write ('... and this is'); ObjtStream.writeline ('the last line.'); objtstream.close (); 4. Read the text file Once you use createTextFile, OpenTextFile or OpenASTextStream method, create a TextStream object corresponding to a file, you can read files and close files with the following VBScript program: 'In Vbscript:' Read One Line At a Time UnTil the end of the file is reached Do While Not objTStream.AtEndOfStream 'get the line number intLineNum = objTStream.Line' format it as a 4-character string with leading zeros strLineNum = Right ( "000" & CStr (intLineNum), 4) 'get the text of the line from the file strlinetext =

objTStream.ReadLine Response.Write strLineNum & ":" & strLineText & "" Loop objTStream.Close or with JScript: // In JScript: // read one line at a time until the end of the file is reached while (objTStream!. AtEndOfStream) {// get the line number intLineNum = objTStream.Line; // format and convert to a string strLineNum = '000' intLineNum.toString (); strLineNum = substr (strLineNum, strLineNum.length - 4, 4) / / get the text of the line from the file strlinetext = objtstream.readline (); response.write (Strlinenum ');} objtstream.close (); 5.5.3 TextStream object Example for use The TextStream object operates several ways of the abrasive file, this book provides a VBScript sample page that uses a lot of the above code. From the example of the CHAPTER05 main menu page, select the link "Working with the textStream Object" Open the show_textstream.asp page. This page shows the text content of the file stored on the disk name myFile.txt. The text content displayed in the control allows editing and there are three buttons below. The role of the three buttons is the first text of the content update (ie, replacing) of the control, and add text after the contents of the file content, or rewrite the file with the initial default content, as shown in Figure 5-15. Schedule: Figure 5-15 TEXTSTREAM Object Example Page 1. Read the contents of the existing text file load this page each time you load this page, open the text file and place the read content into the <TextArea> control. Note How do we use the server.mappath method to get the absolute physical path of file MyFile.txt, which is in the same directory with the sample page. The following program creates a FileSystemObject instance: <% strTextFile = Server.MAppath ("MyFile.txt")</p> <p>'Create An Instance of A FileSytemObject ObjectSet Objfso = Server.createObject ("Scripting.FileSystemObject") ... Like most other examples of this section in the book, this page contains a <form> segment to save the HTML control of the page. Action is the current page, so the content of the form is sent back to the same page. Each time you load this page, <textarea> Control is filled with the current content of text file: ... <form action = "<% = request.servervariables (" script_name ")%>" Method = "post"></p> <p>The Contents of the Disk File <b> <% = strTextFile%> </ b> Are: <p> <textarea name = "txtcontent" rows = "10" cols = "50" wrap = "physical"> <% ' open the text file as a TextStream objectSet objTStream = objFSO.OpenTextFile (strTextFile, ForReading) 'read one line at a time until the end of the file is reachedDo While Not objTStream.AtEndOfStream'get the line numberintLineNum = objTStream.Line'format and convert to a stringstrLineNum = Right ( "00" & CStr (intLineNum), 3) 'get the text of the line from the filestrLineText = objTStream.ReadLineResponse.Write strLineNum & ":" & strLineText & vbCrLfLoopobjTStream.Close%></p> <p>The above program can be known how to open a text file for reading, traversing the entire file, reading a line each time (instead of reading the entire file as a string). This is because you want to add your own line number, the line number does not belong to the text of the file. For each row (read), before reading, before, and format the line property and create a line number of a three digit. Then place the line number and the text line to place the page. 2. Update the content of the text file When you click the Update button of the page (usually after editing the text in the <textarea> control), you will rewrite the contents of the <textarea> control into the text file. To this end, this page has some of the corresponding ASP code, which is previously verified before the HTML control, checks which button (if any), then reload the page. If you click the Update button, collect the contents of the <textarea> control as a string, separating this string to become an array of independent text selection, and open the text file ready to override its content, then traverse the array that has just created, press the line number Content of the row: ... 'Look for a command Sent from the form section button (Request.form ("cmdupdate")) Thenget Contents of Textarea ControlSTRNEWTEXT = Request.form ("txtcontent")' Split IT into an array of lines at each carriage returnarrLines = Split (strNewText, vbCrLf) 'Open the text file for writing, which replaces all existing contentSet objTStream = objFSO.OpenTextFile (strTextFile, ForWriting) for intLine = 0 To UBound (arrLines) strThisLine = arrLines (intLine) 'Write out each line in turn as long as it's got a line numberIf Len (strThisLine)> 4 Then objTStream.WriteLine Mid (strThisLine, 6) NextobjTStream.CloseEnd If ... HTML <TEXTAREA> control may be returned Value In addition to additional characters, this depends on the content format and WRAP properties of the original HTML page. In particular, it should be written immediately after the ASP script end delimit "%>" to prevent additional payment symbols. That is:%> and not:%></p> <p>3. Add content to text files When you click on the Append button, you can add content for existing files, similar to modifying the file, as shown in Figure 5-16. The difference is that this file is to append rather than to rewrite files. Additional parameters can be added when calling the OpenTextFile method to prevent new files from being created when the specified file 2 does not exist. ... If Len (Request.Form ( "cmdAppend")) Then 'append contents of TEXTAREA to file strNewText = Request.Form ( "txtContent") arrLines = Split (strNewText, vbCrLf) Set objTStream = objFSO.OpenTextFile (strTextFile, ForAppending, False), = 0 to Ubound (arrlines) strand (INTLINES) - IF LEN (StRTHISLINE)> 4 Then ObjtStream.writeline MID (StRTHISLINE, 6) Next ObjtStream.close End IF ... Figure 5-16 Add content to text files The sample page 4. Rewriting the default content Finally, the RESTORE button is used to simply rewrite the initial default content back to the text file. Write code using a text file similar TextStream way: ... If Len (Request.Form ( "cmdDefault")) Then 'write out default contents to file Set objTStream = objFSO.CreateTextFile (strTextFile, True, False) objTStream.WriteLine " At last I can create files with VBScript "objTStream.WriteLine objTStream.WriteLine" Here are three blank lines:!. "objTStream.WriteBlankLines 3 objTStream.Write" ... and this is "objTStream.WriteLine" the last line "objTStream. Close End IF 5.6 Sproduction This chapter describes the powerful capabilities of using objects and components in the ASP page. First discuss the general characteristics of objects and components, and their types. Then focus on how to create an object instance within the ASP (and client) script code. Many objects used on the page may be "external" components, which are installed on the server, independent of ASP. The objects discussed in this chapter are always available when ASP uses a default scripting language (such as VBScript or JScript). It is implemented by the script running library through the scrrun.dll file. These objects refer to Dictonary objects, FileSystemObject objects, and TextStream objects. Dictionary objects provide us with a valid mode of storage values, which can be indexed and accessed based on the name, not accessible according to a number. This is an ideal way to store the name / value on such data. The FileSystemObject object and the TextStream object are closely related to each other, and they can use them to access the server or network (mapped) disk drive directory.</p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-7805.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="7805" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.032</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'zdMO1fWnlnhRZDRF3AANpRteXLIkkh5cOMPaIT1cLqBWnPGpMYgy5w4pQaKNKrZKwwHV2xkoszewqimGKfh06g_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>