如何用vb读取内存数据中的字符串

VB60使用Mid 函数来读取字符串中指定数量的字符。

Mid 函数：返回 Variant (String)，其中包含字符串中指定数量的字符。

语法：

Mid 函数示例：

本示例使用 Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWordsMyString = "Mid Function Demo"   建立一个字符串。FirstWord = Mid(MyString, 1, 3)   ' 返回 "Mid"。LastWord = Mid(MyString, 14, 4)   ' 返回 "Demo"。MidWords = Mid(MyString, 5)   ' 返回 "Funcion Demo"。

单纯的说怎么读取很简单，假设你的控件名称为A，则  Atext = “sheet1cells(2,2)value”

下面给出VBNET 的完整代码：

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1Click

        Dim DataSPath As String

        DataSPath = "C:\axls"

        Dim ExlApp = CreateObject("ExcelApplication")

        Dim xlbook = ExlAppWorkbooks

        Dim xlbk = ExlAppworkbooksOpen(DataSPath)

        Dim St1 = xlbkworksheets(1)

        TextBox1Text = DataSPath & " 表1中 " & St1cells(2, 2)value

        St1 = Nothing

        xlbook = Nothing

        ExlApp = Nothing

        MsgBox("OK", MsgBoxStyleExclamation, "Tudy")

    End Sub

End Class

放置一个Command控件,单击实现功能:

Private

Sub

Command1_Click()

Dim

Arr(2)

As

String

Dim

i

As

Integer

Dim

SP

As

Variant

Open

"C:\1txt"

For

Input

As

#1

Do

While

Not

EOF(1)

Line

Input

#1,

Arr(i)

i

=

i

+

1

Loop

Close

#1

SP

=

Split(Arr(1),

",")

MsgBox

"第二行第二列的数据为:"

&

SP(1)

End

Sub

'读取方法：

Imports SystemIO

Public Class Form1

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

MeListBox1ItemsClear()

Dim StrRed As StreamReader = New StreamReader("D:\111txt", SystemTextEncodingDefault)

While Not StrRedEndOfStream

MeListBox1ItemsAdd(StrRedReadLine())

End While

StrRedDispose()

End Sub

End Class

'其它读写方法：

写入：

Private Sub Button2_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button2Click

Dim strR As New StreamWriter("D:\111txt", True)'参数True表示 在原来的数据上面添加，如果为False这删除原来的数据 重新写入数据

strRWriteLine(MeTextBox2Text)

strRDispose()

End Sub

读取：

Private Sub Button3_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button3Click

Dim strR As New StreamReader("D:\111txt")

While Not strREndOfStream

MeTextBox1Text += strRReadLine() & vbCrLf

End While

strRDispose()

End Sub

VB可通过循环来获取ListBox控件的List属性。

List属性，返回或设置控件的列表部分的项目。列表是一个字符串数组，数组的每一项都是一列表项目。

下列代码读取ListBox控件的List属性。

Option Explicit

    Dim I As Long

Private Sub Form_Click()

    For I = 1 To 10

        Print List1List(I) '输出ListBox的前10项内容

    Next

End Sub

Private Sub Form_Load()

    Dim Entry As String  ' 声明变量。

    For I = 1 To 30   ' 计数值从 1 到 30。

        Entry = "Entry " & I   ' 创建输入项。

        List1AddItem Entry   ' 添加该输入项。

    Next I

End Sub

代码如下:Private

Sub

Command1_Click()Open

"F:\数据txt"

For

Input

As

#1Input

#1,

a,

b,

c,

dPrint

"a="&a,"b="&

b,"c="&c,"d="&dClose

#1End

Sub-几种打开文件方法-------------------------1open

<文件名>

for

input

as#<文件号>如果文件不存在则会出错,文件号将在以后 *** 作中取代文件名,范围是[1,511]。2open

<文件名>

for

output

as#<文件号>建立一个新文件并打开它,如果文件存在就删了再建立。3open

<文件名>

for

append

as#<文件号>为了在文件尾部追加内容而打开,写入数据时是从尾部进行。-读取-------------------------------------1input

#<文件号>,<变量表>读出一行数据并依次分配给各变量2line

input

#<文件号>,<变量名>读出一行数据直到回车换行之前的全给此变量------------------------------------------

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，

然后打开Excel文件读数据

Dim scxls As ExcelApplication

Dim scbook As ExcelWorkbook

Dim scsheet As ExcelWorksheet

‘Set scxls = CreateObject("excelapplication")

‘Set scbook = scxlsWorkbooksAdd

Set scbook = scxlsWorkbooksopen("c:\1xls")

Set scsheet = scbookWorksheets(1)

‘scsheetCells(1, 2) = "1111"     ’写入数据

a=scsheetCells(1, 2)               '读取数据

Set scbook  = Nothing

Set scxls = Nothing

‘scxlsVisible = True    ’显示Excle

数据较多，且有规律可循时，请使用循环语句

以上就是关于如何用vb读取内存数据中的字符串全部的内容，包括:如何用vb读取内存数据中的字符串、用vb读取Excel中某个单元格的数据、vb编程 读取数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！