批量每隔20个字符自动添加一个回车符号???
本帖最后由 zhenglei 于 2010-5-21 18:30 编辑批量每隔20个字符自动添加一个回车符号???
INI读取$new 的值 比如是以下变量内容。。 现在要求批量每隔20个字符增加一个回车符 最后在赋给LABEL
不知道这样怎么做???
$new="欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999"
$len=StringLen($new)
$len =$len*40/400
MsgBox(0, "字符串长度为:",$len )
$Label=GUICtrlCreateLabel($new, 0, 0, 400, 1000) 没试,不知道对不对。#include <Array.au3>
$sText = '$new="欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999"'
$aReg = StringRegExp($sText, '.{20}', 3)
MsgBox(0, '', _ArrayToString($aReg, @CR)) $new = '欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999欢迎光临本网吧 祝您上网愉快.........祝你上网愉快!!!88888888888899999999'
$new = StringRegExpReplace($new, '(.{20})', '$1' & @CRLF)
Msgbox(0, 0, $new)
页:
[1]