lin6163 发表于 2009-8-28 09:15:40

请大侠看改一下错误代码 感谢回复的大家，但还是不理解

本帖最后由 lin6163 于 2009-9-1 23:11 编辑

#NoTrayIcon
$a =4963286485746


$key = InputBox("lin", "请输入位置：", "", "",180 ,100)
$key1 = stringMid($key , 1, 2)
; a

if $key Then
MsgBox ( "", "" ,$key1)
ElseIf $key1 = "a1" Then
        $my = StringMid($a, 1, 2)
ElseIf $key1 = "a2" Then
        $my = StringMid($a, 3, 2)
ElseIf $key1 = "a3" Then
        $my = StringMid($a, 5, 2)
ElseIf $key1 = "a4" Then
        $my = StringMid($a, 7, 2)
ElseIf $key1 = "a5" Then
        $my = StringMid($a, 9, 2)
ElseIf $key1 = "a6" Then
        $my = StringMid($a, 11, 2)
ElseIf $key1 = "a7" Then
        $my = StringMid($a, 13, 2)
ElseIf $key1 = "a8" Then
        $my = StringMid($a, 15, 2)
EndIf
MsgBox(0, "字符是：",$my)


先感谢楼下那两位

是这样的
运行后会弹出一个界面叫你输入两个字符 最多容许输入8个字符
当 输入的是 a1时显示 49
a2 时显示 63
a3 时显示 28
.......
......
以此类推

也就是按照第一个变量所提供的字符





不好意思
刚刚学的，有多代码不知道 所以只能用知道的代替
If StringLen($a) > 2 * StringRight($key, 1) - 1 Then
                MsgBox(0, 0, StringMid($a, 2 * StringRight($key, 1) - 1, 2))
不太理解

还有
如果还有
$a =5858386486349767
$b =2263832860363320
$c =1241910458749484
。。。。。。
。。。。。。。
。。。。。。。。
。。。。。。。。。
等等
而且$key = InputBox("lin", "请输入位置：", "", "",180 ,100)
输入的字符是b4a5c3
这些字符是不定的
这样的规格呢

水木子 发表于 2009-8-28 09:42:04

你的$a1---$8 等于？是数组吗？

netegg 发表于 2009-8-28 10:21:48

本帖最后由 netegg 于 2009-8-28 10:23 编辑

看那个意思好像不是，好象是输入什么出什么
而且LZ到底想问什么，放这段代码上来，是让我们帮你试还是怎样

lin6163 发表于 2009-8-28 10:54:21

麻烦楼上那两位再解答一下

大绯狼 发表于 2009-8-28 11:07:29

$a = 4963286485746
$key = InputBox("lin", "请输入位置：", "a3", "", 180, 100)
If StringLeft($key, 1) = "a" And StringLen($key) = 2 And Number(StringRight($key, 1)) <> 0 Then
        If StringLen($a) > 2 * StringRight($key, 1) - 1 Then
                MsgBox(0, 0, StringMid($a, 2 * StringRight($key, 1) - 1, 2))
        Else
                MsgBox(0, 0, "输入长度超出范围")
        EndIf
Else
        MsgBox(0, 0, "输入错误")
EndIf

netegg 发表于 2009-8-28 14:32:00

本帖最后由 netegg 于 2009-8-28 14:34 编辑

不好意思，刚刚大概明白什么意思了，是一个字符串，按选择输出是吗？

netegg 发表于 2009-8-28 14:38:46

本帖最后由 netegg 于 2009-8-28 14:42 编辑

不敢说上面的哥们，不过着实用不到那么麻烦，stringtoarray，和，arraytostring两个函数够了
顺便说一下，转数组的话，$a[$i]=$a &"[" &$i &']'
这段语法忘了，好象是

UID 发表于 2009-8-28 15:14:12

一看楼猪的程序就知道楼猪写程序没有好习惯，脑袋也不会转弯，其实写程序前要先构思流程，你如果有构思过流程，并且不断的进行过改进，绝对不会写出这么差的程序来

lin6163 发表于 2009-8-28 20:45:39

本帖最后由 lin6163 于 2009-8-28 20:52 编辑

不好意思
刚刚学的
If StringLen($a) > 2 * StringRight($key, 1) - 1 Then
                MsgBox(0, 0, StringMid($a, 2 * StringRight($key, 1) - 1, 2))
不太理解

还有
如果还有
$a =5858386486349767
$b =2263832860363320
$c =1241910458749484
。。。。。。
。。。。。。。
。。。。。。。。
。。。。。。。。。
等等
而且$key = InputBox("lin", "请输入位置：", "", "",180 ,100)
输入的字符是b4a5c3
这些字符是不定的
这样的规格呢

lin6163 发表于 2009-8-29 21:12:51

帮帮忙!!!!!!

sensel 发表于 2009-8-30 01:11:27

#NoTrayIcon
$a = 5858386486349767

$key = InputBox("lin", "请输入位置：", "", "", 180, 100)

If StringRegExp($key, "^.$") Then
        $my = StringMid($a, StringRight($key, 1) * 2 - 1, 2)
        MsgBox(0, "字符是：", $my)
Else
        MsgBox("", "", $key)
EndIf
页: [1]
查看完整版本: 请大侠看改一下错误代码 感谢回复的大家，但还是不理解