vb语言字符指定位置替换函数

字符位置替换函数详解

原著：苏建伟

郑州市新密市岳村镇桥沟村金利矿业集团精密矿业监控中心

函数： mid（a，b，c）=d

用于指定位置替换函数

就是把一个字符中指定位置的指定个数的字符，替换为指定字符。

a：操作的的字符，string。

b：位置，从左开始为1，inter。

c：替换个数。Inter。

d：替换的字符。Steing。

如：

Dim a,d as string

Dim b,c as interit

a=“qwertyu“。

b=2

c=2

d=“1“

mid（a,b,c）=d

text1.text=a

a=qw11tyu。

这个函数广泛应用在，控件数组动作，转变为二进制字符串，可是在vb的fdsn文档里找不到。

如:

再程序开始声明一个字符串数组：就是全局变量 Dim sbuf as string ‘全局变量

Sbuf=“00000000“

If Check1(index).value=1 then

Mid（sbuf，index+1，1）=“1“

这时的sbuf已经替换成一个二进制字符串。如果 index=4

Sbuf=“0001000“

你可以进行后期处理。