新人求助按键精灵关于颜色和数据类型的转换，还有时间获取比较的几个问题

1，超级模块文本 *** 作插件Sdsl命令10进制转16进制，Slds命令16进制转10进制
2，没有定义A为空，因为F9F8FF不是字符串，只能算一个变量，如果加上双引号"F9F8FF"，A就是一个字符串，貌似按键精灵对颜色数据跟字符串没有特殊要求，可以通用，不过要满足000000到FFFFFF颜色范围值。或者你也可以试试color颜色插件
//色调(H)、饱和度(S)、亮度(L)
//下面这句是把16进制颜色("0000FF")转换分解到10进制(H：H, S：S, L：L)分量中
Call PluginColorColorToHSL("0000FF", H, S, L)
TracePrint H & " " & S & " " & L
//下面这句是把10进制(R：255, G：0, B：0)分量合并到16进制颜色值变量(Color)中
Color = PluginColorGetRGB(255, 0, 0)
TracePrint "得到16进制颜色值:" & color
3，如上
4，
TracePrint time
TracePrint now
5，
a=TimeSerial(16 , 31, 10)
TracePrint DateDiff("s",time,a)////s代表秒计算，

指令内容如下：

你的2个字在那一串文字中是连着出现的话：

a="你好按键精灵"

If Instr(a, "按键") > 0 Then

MessageBox ("找到了按键！")

End If

如果这2个字在前面找到的字符串位置不是挨着的，只能一个一个判断！

a="你好按键精灵"

b1=Instr(a, "按")

b2 = Instr(a, "键")

If b1>0 and b2>0 Then

MessageBox ("找到了按键！")

Elseif b1>0 and b2=0 Then

MessageBox ("只找到了按！")

Elseif b1=0 and b2>0 Then

MessageBox ("只找到了键！")

Else

MessageBox ("没有找到！")

End If

软件功能

1、网络游戏中可使用按键精灵制作脚本，实现自动打怪，自动补血，自动说话等。

2、办公族可用按键精灵自动处理表格间数据的转换，自动调整文档格式、文章排版，自动收发邮件等。

3、利用按键精灵实现定时自动打开检验网页链接，文献检索，收集资料等重复 *** 作。

4、任何只要在电脑前用双手可以完成的电脑 *** 作都可以替代完成。

Dim a(100),jl(100),cs(100)
str="你","我","他","他","你","我","我","你","他","我","他","你","明","天","大","家","明","天"
b=split(str,",")
i=0
p = 0
q=0
n=0
Rem pd
sm = 1
For UBound (b)+1
c = b(i)
d = b(p + 1)
If CStr(c) = CStr(d) Then
TracePrint sm
sm = sm + 1
End If
If p<Ubound(b)-1 Then
p=p+1
Else
Exit For
End If
Next
jl(n) = b(i)
cs(n) = sm
If sm > 1 Then
a(q) = b(i)
q=q+1
End If
Rem pd2
i = i + 1
p = i
For qq=0 to ubound(a)
cc = len(a(qq))
If cc = 0 Then
Exit for
End If
Next
For pp=0 to qq
If a(pp) = b(i) and i<ubound(b)+1 Then
Goto pd2
End If
Next
If i<ubound(b)+1 then
n = n + 1
Goto pd
End if
For m=0 to n
TracePrint jl(m) & "出现" & cs(m) & "次"
Next

笨办法，看在150分的份上。
以上代码，字符串可以随机，分隔符一定要是逗号，变量保存在几个数组中，a是相同字，jl是所有不同字，cs是单个字符出现次数。dim声明数组可以设随机大，如果不同字符超过100个，就设200，超过200个不同字符，这应该是一篇短文了。。。

Replace 函数
描述
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find,
replacewith[, compare[, count[,
start]]])
Replace 函数的语法有以下参数：
参数
描述
expression
必选。 字符串表达式 包含要替代的子字符串。
find
必选。被搜索的子字符串。
replacewith
必选。用于替换的子字符串。
start
可选。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用
count
可选。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。
compare
可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0
,这意味着必须进行二进制比较。
设置
compare 参数可以有以下值：
常数
值
描述
vbBinaryCompare
0
执行二进制比较。
vbTextCompare
1
执行文本比较。
返回值
Replace 返回以下值：
如果
Replace 返回
expression 为零长度
零长度字符串 ("")。
expression 为 Null
错误。
find 为零长度
expression 的副本。
replacewith 为零长度
expression 的副本，其中删除了所有由 find 参数指定的内容。
start > Len(expression)
零长度字符串。
count 为 0
expression 的副本。
说明
Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression
字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。
下面的示例利用 Replace 函数返回字符串:
Dim MyString
'二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y")
'文本比较从第三个字符开始。返回 "YXXYXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1)

---