基础太差了，请指点问题出在哪里【已解决】

fenhanxue

下面代码，运行后，为什么$a  只有一个字符，而不是十个字符？

Local $a 

For $i = 1 To 10
        $a &= _ceshi()
        
Next


MsgBox(0,'',$a)

Func _ceshi()
        $rand=Random(19968,40911,1)
        Return BinaryToString ($rand,2) 
EndFunc

已解决

ila

Dim $path="1.txt", $a[11],$i
$open=FileOpen($path,10)
    For $i = 1 To 10
                $a[$i]=_ceshi()
                FileWrite($open,$a[$i])
        Next
FileClose($open)
ShellExecute("notepad.exe",$path)
Func _ceshi()
            $rand=Random(19968,40911,1)
            Return BinaryToString ($rand,2)
    EndFunc

樱花雪月

macran

学习学习再学习

afan

LZ第13行BinaryToString() 这种方式生成的有些字符串是MsgBox()无法正常显示的，但可以写入到记事本中查看，第9行改为FileWrite('xx.x', $a)即可
不过，更怀疑LZ本身使用BinaryToString()就是个问题，改为ChrW()试试

lahan

BinaryToString()转换的时候不是标准的二进制格式在后面自动加上一个类似回车或换行的符号，单行文本是看不全的。取ASCII字符用ChrW()较好。若是非得用BinaryToString()的话去掉最右一个字符就可以了。

Local $a
For $i = 1 To 10
        $a &= _ceshi()
Next
MsgBox(0,'',$a)
Func _ceshi()
        $rand=Random(19968,40911,1)
        Return StringTrimRight(BinaryToString ($rand,2),1)
EndFunc

wei999

这都是什么字啊

haopp1

表示不懂。。。。。。。。。。。。。。

樱花雪月

Local $a
For $i = 1 To 10
    $a &= _ceshi()
Next
MsgBox(0, 0 ,$a)
Func _ceshi()
    Return StringStripCR( _
        BinaryToString( _
        Random(19968,40911,1), 2))
EndFunc