EOS 和 LineSeparator 属性、SkipLine 方法范例 (VB)

2009-1-8 10:19:43 2952

0 EOS 和 LineSeparator 属性、SkipLine 方法范例 (VB) 本范例演示如何每次操作一行文本流。范例显示了将分行符从默认的回车/换行 (adCRLF) 改成简单的换行 (adLF) 或回车 (adCR) 的效果。 Public Sub SkipLineX() 'Declare variables Dim i As Integer Dim objStream As Stream Dim strLine, strChar As String 'Instantiate and open stream Set objStream = New Stream objStream.Open 'Set line separator to line feed objStream.LineSeparator = adLF 'Load text content of list box into stream 'One line at a time For i = 0 To (List1.ListCount - 1) objStream.WriteText List1.List(i), adWriteLine Next 'Display the entire stream Debug.Print "Whole Stream:" objStream.Position = 0 Debug.Print objStream.ReadText 'Display the first line Debug.Print "First Line:" objStream.Position = 0 strLine = objStream.ReadText(adReadLine) Debug.Print strLine Debug.Print "Line length: " + str(Len(strLine)) 'Skip a line, then display another line Debug.Print "Third Line:" objStream.SkipLine strLine = objStream.ReadText(adReadLine) Debug.Print strLine Debug.Print "Line length: " + str(Len(strLine)) 'Switch line separator to carriage return 'All items from list will be considered one line 'Assuming no CRs have been loaded into stream Debug.Print "Whole Stream/First Line:" objStream.Position = 0 objStream.LineSeparator = adCR strLine = objStream.ReadText(adReadLine) Debug.Print strLine Debug.Print "Line length: " + str(Len(strLine)) Debug.Print "Stream size: " + str(objStream.Size) 'Use EOS to Determine End of Stream Debug.Print "Character by character:" objStream.Position = 0 Do Until objStream.EOS strChar = objStream.ReadText(1) Debug.Print strChar Loop End Sub 0
2009-1-8 10:19:43　　评论淘帖0 相关推荐 • Version 属性范例 (VB) 2502 • Sort 属性范例 (VB) 2932 • Seek 方法和 Index 属性范例 (VB) 3533 • Provider 和 DefaultDatabase 属性范例 (VB) 2729 • 几种常见的防止EOS的方法资料下载 7 • 基于改进模糊熵和证据推理的多属性决策方法 1 • Orcad中元器件自定义属性方法 4121 • Orcad原理图属性隐藏与显示的方法 9145 • Optimize 属性范例 (VB) 2865 • NumericScale 和 Precision 属性范例 (VB) 2824