现有一个1.txt文件内容为

1.盯万夫不
2.腥气埂睦
3.枯超大型
4.夺一夺取
5.万魂牵当
6.老于世故
 
要怎么随机取一段到text1.text中,代码怎么写

你怎么写的？

先创建一个edit窗口，在把文件加载到edit里，后用EM_GETLINE取得行文本。

呵呵，估计又得问EM_GETLINE是什么了，牵扯出sendMessage，然后讲API，再讲windows消息机制。。循序渐进，是个好老师。

把文件中的每一行内容读到一个数组中，然后对数组下标取随机数，取出相应的元素。

嘿嘿，好老师，给段代码吧！

.....此贴灌水

dim Str as string
Str=Edit.txt
Edit.txt=""
FOR I=0 TO UBOUND(Str,VBCRLF)-1
Edit.seltext=split(Str,vbcrlf)(i) & "" & Rnd()*10+1 & vbcrlf
NEXT I

以上实例是在编辑框中的内容，每行的后面追加 1 到 10 的随机数