|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。filesystemobject|示例
CreateLyrics
目标:
在文件夹中创立两个文本文件。
树模上面的内容
-FileSystemObject.CreateTextFile
-TextStream.WriteLine
-TextStream.Write
-TextStream.WriteBlankLines
-TextStream.Close
SubCreateLyrics(Folder)
DimTextStream
SetTextStream=Folder.CreateTextFile("OctopusGarden.txt")
TextStream.Write("OctopusGarden")请注重,该语句不增加换行到文件中。
TextStream.WriteLine("(byRingoStarr)")
TextStream.WriteBlankLines(1)
TextStream.WriteLine("Idliketobeundertheseainanoctopusgardenintheshade,")
TextStream.WriteLine("Hedletusin,knowswherewevebeen--inhisoctopusgardenintheshade.")
TextStream.WriteBlankLines(2)
TextStream.Close
SetTextStream=Folder.CreateTextFile("BathroomWindow.txt")
TextStream.WriteLine("SheCameInThroughTheBathroomWindow(byLennon/McCartney)")
TextStream.WriteLine("")
TextStream.WriteLine("Shecameinthroughthebathroomwindowprotectedbyasilverspoon")
TextStream.WriteLine("Butnowshesucksherthumbandwandersbythebanksofherownlagoon")
TextStream.WriteBlankLines(2)
TextStream.Close
EndSub
GetLyrics
目标:
显现lyrics文件的内容。
树模上面的内容
-FileSystemObject.OpenTextFile
-FileSystemObject.GetFile
-TextStream.ReadAll
-TextStream.Close
-File.OpenAsTextStream
-TextStream.AtEndOfStream
-TextStream.ReadLine
FunctionGetLyrics(FSO)
DimTextStream
DimS
DimFile
有多种办法可用来翻开一个文本文件,和多种办法来从文件读取数据。
这儿用了两种办法来翻开文件和读取文件:
SetTextStream=FSO.OpenTextFile(TestFilePath&"BeatlesOctopusGarden.txt",OpenFileForReading)
S=TextStream.ReadAll&NewLine&NewLine
TextStream.Close
SetFile=FSO.GetFile(TestFilePath&"BeatlesBathroomWindow.txt")
SetTextStream=File.OpenAsTextStream(OpenFileForReading)
DoWhileNotTextStream.AtEndOfStream
S=S&TextStream.ReadLine&NewLine
Loop
TextStream.Close
GetLyrics=S
EndFunction
</p>asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了! |
|