Read、ReadText、Write 和 WriteText 方法范例 (VB)

2009-1-8 10:24:13 4348

0 Read、ReadText、Write 和 WriteText 方法范例 (VB) 本范例演示将文本框的内容读入文本 Stream 和二进制 Stream 的方式。显示的其他属性和方法包括 Position、Size、Charset 和 SetEOS。 Public Sub ReadX() 'Declare variables Dim objStream As Stream Dim varA As Variant Dim bytA() As Byte Dim i As Integer Dim strBytes As String 'Instantiate and Open Stream Set objStream = New Stream objStream.Open 'Write the text content of a textbox to the stream objStream.WriteText Text1.Text 'display the text contents and size of the stream objStream.Position = 0 debug.Print "Default text:" Debug.Print objStream.ReadText Debug.Print objStream.Size 'Switch character set and display objStream.Position = 0 objStream.Charset = "Windows-1252" Debug.Print "New Charset text:" Debug.Print objStream.ReadText Debug.Print objStream.Size 'Switch to a binary stream and display objStream.Position = 0 objStream.Type = adTypeBinary Debug.Print "Binary:" Debug.Print objStream.Read Debug.Print objStream.Size 'Load an array of bytes with the text box text ReDim bytA(Len(Text1.Text)) For i = 1 To Len(Text1.Text) bytA(i - 1) = CByte(Asc(Mid(Text1.Text, i, 1))) Next 'Write the buffer to the binary stream and display objStream.Position = 0 objStream.Write bytA() objStream.SetEOS objStream.Position = 0 Debug.Print "Binary after Write:" Debug.Print objStream.Read Debug.Print objStream.Size 'Switch back to a text stream and display Debug.Print "Translated back:" objStream.Position = 0 objStream.Type = adTypeText Debug.Print objStream.ReadText Debug.Print objStream.Size End Sub 0
2009-1-8 10:24:13　　评论淘帖0 相关推荐 • Status 属性范例 (Field) (VB) 2886 • Save 和 Open 方法范例 (VB) 3464 • Resync 方法范例 (VB) 3038 • OpenSchema 方法范例 (VB) 2749 • vb语言编程学习教程 18 • GD32-Colibri-F207实验板Read Write 11 • EM9260嵌入式Linux工控板的CAN通讯方案解析 1706 • 三种write mode，你真的理解吗？ 9911 • Open 和 Close 方法范例 (VB) 3020 • NextRecordset 方法范例 (VB) 2845 1 个讨论