vb中如何使用environ

先说用法...

Private Sub Form_Load()

'先用一个循环把所有的环境变量读出来

Dim EnvString, Indx

Indx = 1

Do

EnvString = Environ(Indx) ' 取得环境变量。

Debug.Print EnvString

Indx = Indx + 1

Loop Until EnvString = ""

'用msgbox看看ALLUSERSPROFILE的值是多少..

MsgBox Environ("ALLUSERSPROFILE")

End Sub

明白了吧...基本上呢,这个函数就相当于一个读取ini的函数,ini的内容就是环境变量的内容,你想要读什么,就给他个什么参数

MSDN中是这样写的....

Environ 函数

返回 String，它关连于一个 *** 作系统环境变量。 在 Macintosh 中不可用

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数：

部分 描述

envstring 可选参数。包含一个环境变量名的字符串表达式。

number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。

说明

如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给伍核指定的 envstring 的，也就是说，在环境字符串表格中对应那个枝族环境变量的腔搭掘等号 (=) 后面的那段文本。

如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串

如果任务数很多，可以将project添加进任务中，直接点击Task，添加到队列中，然后再点击start，开始运行。

当运行完毕后，可以查看结果，结果文件包含8中类型：

COE文件：遗传图marker间相关性下三角矩阵文件

ICAA文件：复合区间作图二维扫描的加性效应下三角矩阵文件

ICLD文件：复合区间作图二维扫描的lod值下三角矩阵文件

MTP文件：marker 分型频率、偏分离卡方检验、缺失marker分型估计

RICE文件：复合区间作图二维扫描结果文件

QICE文件：复合区间作图识别两个基因上位性QTL文件

STA文件：基本的表型数据统计文件

STP文件：复合区间作图逐步回归文件

COE文件：

MarkerID：整数表示的MarkerID；

MarkerName：Marker name；

First row：Marker ID、MarkerName和MarkerID；

Other：marker 间相关系数；

MTPfile：

MarkerID：整数表示的MarkerID；

MarkerName：Marker name；

Chromosome：chromosome ID （从1开始计数）；

Position：Marker 在连锁群中的位置；

Size（2）：基因型与P1一样的个数；

Size（1）：基因型与F1一致的个数；

Size（0）：基因型与P2一致的个数；

Size（-1）：基因型缺失的个数；

Chi-Square：Marker 偏分离卡方检验统计量；

Pr>ChiSq：卡方检验的可能性；

RICE文件：

TraitID：整数表示的性状ID；

TraitName：性状名称；

Chromosome1：第一次扫描位置的Chromosome ID；

Position1：第一个QTL的扫描位置；

Chromosome2：第二次扫描的Chromosome ID；

Position2：第二个QTL扫描位置；

LOD（AA）：主要由上位性得到的LOD值；

LOD（AAbyE）：主要由上位性和环境互作得到的LOD值；

V(AA)：主要由上位性造成的遗传变异；

V（AAbyE）：由上位性和环境互作造成的遗传变异；

PVE：表型贡献率；

PVE（AA）：由上位性得到的表性贡献率；

PVE（AAbyE）：由环境衡睁晌和上位性得到的表型贡献率；

Add1：position1位置的加性效应；

Add2：position2位置的加性效应；

AddbyAdd：position1和position2共同作用的加性效应；

A1byE_01、A1byE_02、早帆A1byE_03... ：在不同环境下的position1的加性效应；

A2byE_01、A2byE_02、A2byE_03...：在不同环境下的position2的加性效应；

QICE文件：显著性的QTL文件

各列表示意义同RICE文件；

STA文件：

EnvironID：一个整数表示的环境ID；

EnvironName：环境名称；

SampleSize：样本大小；

Mean：表型数据均值；

Variance：表型方差；

StdError：表型方差标准误；

Skewness：表行数据偏斜度；

Kurtosis：表型数据峰度；

Minimum：表型数据最小值；

Maximum：表型数据最大值；

Range：表型数据范围；

W-test：Shapiro Wilk W-statistic 检验；

P-test：Shapiro Wilk W-statistic 的P-value；

STP文件：

EnvironID：整数表示的环境ID；

EnvironName：咐锋环境名称；

Method：加性和上位性作图的逐步回归区分；

VariableID：Marker pairs

Intercept：逐步回归停止；

Rsq：通过最终的模型解释表型变异；

其中RICE和QICE文件是最后的结果文件，需要重点查看的。

至于图形结果，可以直接点击EPI和EPI（Q）（这两个图标是明亮时分别点击直接出图），点击位置如下图中红框圈出的位置：

Environ 函数

返回 String，它关连于一个 *** 作系统环境变量。 在 Macintosh 中不可用

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数：

部分 描述

envstring 可选参数。包含一个环境变量名的字符串表达式。

number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。

说明

如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。

如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况蔽肆下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串森并培，那么 Environ 会返回此唯一个零长度字符串。

USERPROFILE=C:\Documents and Settings\Administrator

Environ("USERPROFILE")=C:\Documents and Settings\Administrator

收藏夹 USERPROFILE\Favorites

我的文档 USERPROFILE\My Documents

在命令提示符窗口里输入SET命令就可以看到所有已定义的环境变量

COMPUTERNAME 计算机名

HOMEDRIVE 主驱动器

HOMEPATH= 主目录

NUMBER_OF_PROCESSORS 处理器数目

OS *** 作系统

PROCESSOR_ARCHITECTURE 处理器架构

PROCESSOR_IDENTIFIER 处理器型号

ProgramFiles 程序目录

SystemDrive 系统驱动器

SystemRoot Windows目录

TEMP 临时文件

TMP 临时文件

USERNAME 用户名

USERPROFILE 用户目录

windir Windows目录

---