后使用快捷导航没有帐号？
新浪微博：
&&&&腾讯微博：
只需一步，快速开始
查看: 860|回复: 3
UID1181476精华0在线时间196 小时阅读权限40鲜花14 个铜币857 个银币47 个金币0 个积分418帖子注册时间最后登录
初中三年级, 积分 418, 距离下一级还需 32 积分
鲜花14 个铜币857 个银币47 个积分418帖子
本帖最后由 nrg1314 于
10:52 编辑
题目=A0我在干什么
题目=A1嘿咻嘿咻
题目=A2拔萝卜
..........
题目=A10ohmyboy
像上面 这种我想要分割 3 部分
“题目=” 可以用 split “=”
但是 后面 “A0 - A10” E文和数字 成 一部分
数字不是固定的。。不懂怎么 分割~~~
中文字 成最后一部分 要怎么分割
求教~各位大神。。。
欢迎常来帮助新人!
总评分:&鲜花 + 1&
UID331910精华0在线时间2649 小时阅读权限90鲜花639 个铜币832 个银币962 个金币0 个积分3919帖子注册时间最后登录
博士, 积分 3919, 距离下一级还需 81 积分
鲜花639 个铜币832 个银币962 个积分3919帖子
本帖最后由 qpkey 于
17:34 编辑
執行以下代馬看結果
依需求自行修改text = &題目=A0我在幹什麼&'你的題目
Dim txt(2)'宣告使用變量
t = InStr(text, &=&)'取得&=&位置
txt(0) = Left(text, t)'紀錄開頭字串到&=&
For n = t + 1 To len(text)'從&=&後開始判斷大寫字母及數字(迴圈)
If asc(mid(text, n, 1)) &= 48 and asc(mid(text, n, 1)) &= 57 or asc(mid(text, n, 1)) &= 65 and asc(mid(text, n, 1)) &= 90 Then '判斷大寫字母及數字
txt(1) = txt(1) & mid(text, n, 1)'紀錄大寫字母及數字
Else
txt(2) = txt(2) & mid(text, n, 1)'紀錄非大寫字母及數字
End If
Next
MsgBox txt(0) & chr(13) & txt(1) & chr(13) & txt(2)'輸出复制代码---------------------------------------------------------------------
依評分需求注釋以補
欢迎常来帮助新人!
理由：共同努力
感谢大神。如果能注释一下 解释每句的作用就.
总评分:&鲜花 + 2&
铜币 + 20&
↑體諒你眼睛 字體放大處理↑
UID1181476精华0在线时间196 小时阅读权限40鲜花14 个铜币857 个银币47 个金币0 个积分418帖子注册时间最后登录
初中三年级, 积分 418, 距离下一级还需 32 积分
鲜花14 个铜币857 个银币47 个积分418帖子
调试后 果然强大分割了~~
虽然 看不明白 其中很多 代码 什么意思。。。。如果能解释下就好了 感谢感谢·&&
UID331910精华0在线时间2649 小时阅读权限90鲜花639 个铜币832 个银币962 个金币0 个积分3919帖子注册时间最后登录
博士, 积分 3919, 距离下一级还需 81 积分
鲜花639 个铜币832 个银币962 个积分3919帖子
nrg1314 发表于
调试后 果然强大分割了~~
虽然 看不明白 其中很多 代码 什么意思。。。。如果能解释下就好了 感谢感谢· ...
依評分需求注釋以補
↑體諒你眼睛 字體放大處理↑
双蛋勋章（30天）
双蛋活动勋章(30天)
按键精灵开发者4级
可通过提升认证等级来升级勋章：
积极帮助新手（可向管理员进行申请）
黄瓜勋章（永久）
体验商业小精灵活动的奖励
按键精灵论坛推荐 /1
同学们，双蛋快乐！急！急！急！特级通缉令-中国年兽来袭！此年兽凶猛异常，已盗取了圣诞老人的所有礼物，并化身为圣诞老人2号！按键情报处特发此令，号召广大同学扩散传播，如抓住该年兽，可获其身上携带礼物之一抢楼盖楼还能赢取银币、百分百获得双蛋勋章！礼物有限，先到先得！错过再等一年！
Powered by后使用快捷导航没有帐号？
新浪微博：
&&&&腾讯微博：
只需一步，快速开始
查看: 1660|回复: 8
UID370676精华0在线时间133 小时阅读权限55鲜花1 个铜币544 个银币12 个金币0 个积分593帖子注册时间最后登录
高中二年级, 积分 593, 距离下一级还需 57 积分
鲜花1 个铜币544 个银币12 个积分593帖子
怎么读取一个文本文档里面的所有数字，让后全部相加？
UID1182838精华0在线时间656 小时阅读权限70鲜花223 个铜币1818 个银币12 个金币0 个积分1320帖子注册时间最后登录
大学三年级, 积分 1320, 距离下一级还需 380 积分
鲜花223 个铜币1818 个银币12 个积分1320帖子
如果文件不大，可以直接提取数字
很大的话用正则表达式最快
UID370676精华0在线时间133 小时阅读权限55鲜花1 个铜币544 个银币12 个金币0 个积分593帖子注册时间最后登录
高中二年级, 积分 593, 距离下一级还需 57 积分
鲜花1 个铜币544 个银币12 个积分593帖子
<font color="# 发表于
如果文件不大，可以直接提取数字
很大的话用正则表达式最快
不知道怎么写，能教我一下么？或者直接上代码，我看一下写法！谢谢了！
UID730930精华0在线时间63 小时阅读权限40鲜花2 个铜币181 个银币20 个金币0 个积分185帖子注册时间最后登录
初中一年级, 积分 185, 距离下一级还需 65 积分
鲜花2 个铜币181 个银币20 个积分185帖子
我也不知道正则表达式
&&我能想到的是 定义一个变量=
然后读文本 如果文本里的内容和变量里的其中一个数字相同则存入另一个变量中 这样就可以拿出全部数字&&之后就.......& &哈哈&&这个办法 都想得出来 真佩服自己 （自讽一下呵呵）
义之金叶神
UID730930精华0在线时间63 小时阅读权限40鲜花2 个铜币181 个银币20 个金币0 个积分185帖子注册时间最后登录
初中一年级, 积分 185, 距离下一级还需 65 积分
鲜花2 个铜币181 个银币20 个积分185帖子
传说中的“天才”
义之金叶神
UID1182838精华0在线时间656 小时阅读权限70鲜花223 个铜币1818 个银币12 个金币0 个积分1320帖子注册时间最后登录
大学三年级, 积分 1320, 距离下一级还需 380 积分
鲜花223 个铜币1818 个银币12 个积分1320帖子
djzlove129 发表于
不知道怎么写，能教我一下么？或者直接上代码，我看一下写法！谢谢了！a = &jkdioajdlj123dsadsaklf2均的咳嗽啊dkls12dsaklpo23ajkdioajdlj123dsadsaklf2均的咳嗽啊dkls12dsaklpo23a&
'假设读取到的文本内容
b = 正则搜索(&\d*&, a, 1)
'对内容进行正则搜索，将结果返回为数组
For i = 0 To UBound(b)'数组内有数字和空字符，循环相加即可
& & If b(i) && && Then
& && &&&c=c+int(b(i))& & & &
& & End If& & & &
Next
MsgBox c'结果储存在c里
Function 正则搜索(模板,要搜索的字符串,是否返回数组)'返回的数组最后一个是空值
& & Set regEx = New RegExp
& & Execute &regEx.Global = True&'对象不可预先定义，否则这句将出错
& & regEx.Pattern = 模板
& & regEx.IgnoreCase = True
& & Set Matches = regEx.Execute(要搜索的字符串)
& & If 是否返回数组 Then
& && &&&For Each Match in Matches&&
& && && && &正则搜索 = 正则搜索&Match.Value&&▂▃▅▆█&
& && &&&Next
& && &&&正则搜索 = split(正则搜索, &▂▃▅▆█&)
& & Else
& && &&&For Each Match in Matches&&
& && && && &正则搜索 = 正则搜索&Match.Value&chr(1)
& && &&&Next
& & End If& &
End Function复制代码
非常感谢! 收了
总评分:&鲜花 + 1&
UID747249精华0在线时间4 小时阅读权限20鲜花0 个铜币36 个银币0 个金币0 个积分16帖子注册时间最后登录
小学一年级, 积分 16, 距离下一级还需 14 积分
鲜花0 个铜币36 个银币0 个积分16帖子
<font color="# 发表于
真不知道按键什么时候开始支持正则的，当时就是因为没有找到正则，改去玩python了
UID923391精华0在线时间305 小时阅读权限80鲜花90 个铜币2156 个银币243 个金币0 个积分2731帖子注册时间最后登录
Every Memory with joy and sorr
硕士, 积分 2731, 距离下一级还需 269 积分
鲜花90 个铜币2156 个银币243 个积分2731帖子
UID969834精华0在线时间233 小时阅读权限60鲜花2 个铜币775 个银币67 个金币0 个积分692帖子注册时间最后登录
高中三年级, 积分 692, 距离下一级还需 58 积分
鲜花2 个铜币775 个银币67 个积分692帖子
大漠插件就可以了&&爱 还用问么 都不看教程
黄瓜勋章（永久）
体验商业小精灵活动的奖励
按键会员（月）
按键会员绑定账号后自动赠送
按键精灵开发者2级
可通过提升认证等级来升级勋章：
按键精灵开发者6级
可通过提升认证等级来升级勋章：
学有所成勋章，新手步入按键学堂的第一枚勋章
幸运草勋章（永久）
商业小精灵限时活动勋章。
按键精灵开发者5级
可通过提升认证等级来升级勋章：
按键精灵开发者3级
可通过提升认证等级来升级勋章：
按键精灵论坛推荐 /1
同学们，双蛋快乐！急！急！急！特级通缉令-中国年兽来袭！此年兽凶猛异常，已盗取了圣诞老人的所有礼物，并化身为圣诞老人2号！按键情报处特发此令，号召广大同学扩散传播，如抓住该年兽，可获其身上携带礼物之一抢楼盖楼还能赢取银币、百分百获得双蛋勋章！礼物有限，先到先得！错过再等一年！
Powered by帮忙发一个按键精灵脚本 需要是1.0～100.0之间的带1位小数的不重复输入数字。_百度知道
帮忙发一个按键精灵脚本 需要是1.0～100.0之间的带1位小数的不重复输入数字。
提问者采纳
//返回值 = Lib.算法.随机取姓名()Randomizex = Int((1000 * Rnd)+1)/10.0 x=FormatNumber(x,1)MessageBox x没分。。。求追加
提问者评价
按照你说的，真的成功了，好开心，谢谢你！
其他类似问题
按默认排序
其他1条回答
你的意思是输入1.1 1.2 113 1.4 1.5这样的吗？随机输入，还是顺序输入？
RunApp &notepad.exe&
//打开一个记事本A = 1While A &100
SayString FormatNumber(A,1)
//输出文本保留一位小数
A = A + 0.1
KeyPress &Space&, 3
Delay 300Wend
按键精灵脚本的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁