内容发布更新时间 : 2024/4/24 7:43:15星期一 下面是文章的全部内容请认真阅读。

Line Input # 语句

2008-01-17 16:22

从已打开的顺序文件中读出一行并将它分配给 String变量。 语法

Line Input #filenumber, varname

Line Input # 语句的语法具有以下几个部分： 部分 描述 filenumber 必要。任何有效的文件号。 varname 说明

通常用 Print # 将 Line Input # 语句读出的数据从文件中写出来。 Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。

必要。有效的 Variant 或 String 变量名。 Line Input # 语句示例

本示例使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。 Dim TextLine

Open \打开文件。 Do While Not EOF(1) ' 循环至文件尾。

Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 Debug.Print TextLine ' 在立即窗口中显示数据。 Loop

Close #1 ' 关闭文件。

instr

VB和VBS函数 【名称】 InStr 【类别】 字符串函数 【方法】

InStr([start, ]string1, string2[, compare]) 【参数】

InStr 函数的语法具有下面的参数： 部分 说明 start

可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。 string1

必要参数。接受搜索的字符串表达式。 string2

必要参数。被搜索的字符串表达式。 Compare

可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。 compare 参数设置为： 常数 值

vbUseCompareOption -1

说明：使用Option Compare 语句设置执行一个比较。 vbBinaryCompare 0

说明：执行一个二进制比较。 vbTextCompare 1

说明：执行一个按照原文的比较。 vbDatabaseCompare 2

说明：仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

【返回值】

返回0、1、2、-1或Null等。 【异常/错误】 无

描述InStr([start, ]string1, string2[, compare])

返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中，从start开始找string2，省略start时从string1头开始找。找不到时，函数值为0。 如果

string1 为零长度 InStr返回 0 string1 为 Null InStr返回 Null string2 为零长度 InStr返回 Start 的值 string2 为 Null InStr返回 Null string2 找不到 InStr返回 0

在 string1 中找到string2 InStr返回 找到的位置 start 值 > string2 值 InStr返回 0 【示例】

本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

Dim SearchString, SearchChar, MyPos

SearchString =\'被搜索的字符串。 SearchChar = \' 要查找字符串。

' 从第4个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。

' 小写 p 和大写 P 在文本比较下是一样的。

MyPos = Instr(4, SearchString, SearchChar, 1)

' 从第4个字符开始，按照原文比较的方式找起。返回值为 9（大写 P）。

' 小写 p 和大写 P 在二进制比较下是不一样的。 MyPos = Instr(1, SearchString, SearchChar, 0) ' 缺省的比对方式为二进制比较（最后一个参数可省略）。 MyPos = Instr(SearchString, SearchChar) ' 返回 9。 MyPos = Instr(1, SearchString, \' 返回 0。 SQL函数：

INSTR(char1，char2，start，times)：在char1字符串中搜索char2字符串，start为执行搜索的起始位置，times为搜索次数。

TRIM

除了单词之间的单个空格外，清除文本中所有的空格。在从其他应用程序中获取带有不规则空格的文本时，可以使用函数 TRIM。

要点 TRIM 函数设计用于清除文本中的 7 位 ASCII 空格字符（值 32）。在 Unicode 字符集中，有一个称为不间断空格字符的额外空格字符，其十进制值为 160。该字符通常在网页中用作 HTML 实体  。TRIM 函数本身不删除此不间断空格字符。。 语法

TRIM(text)

Text 需要清除其中空格的文本。 1 2

A 公式

=TRIM(\First Earnings \

B

说明（结果）

Quarter 删除公式中文本的前导空格和尾部空格 (First

Quarter Earnings)

Mid 函数

从字符串中返回指定数目的字符。

Mid(string, start, length)

参数 string

字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。 Start

string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 (\。 Length

要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。 说明

要判断 string 中字符的数目，可使用 Len 函数。

下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符： Dim MyVar

MyVar = Mid(\Script is fun!\4, 6) MyVar的值为\。

注意 MidB 函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数，而是字节数。

股票技术指标名称

函数公式：

M:=SUM(VOL,0);

MID:IF(M,SUM(VOL*CLOSE,0)/M,CLOSE);