TC官方合作论坛

标题: 文本内容部分截取问题，进来帮帮忙 [打印本页]
作者: 境界程序员    时间: 2014-3-31 00:43
标题: 文本内容部分截取问题，进来帮帮忙
本帖最后由 境界程序员 于 2014-3-31 00:43 编辑

例如：有如下文字

老师，您好:
我已经在做了SCL90测试，
请您帮我分析一下：
你的总分为90分，总均分为1分 你的标准分为113分
躯体化分12分均分1
强迫症状10分均分1
人际敏感9分均分1
抑郁症状13分均分1
焦虑症状10分均分1
敌对症状6分均分1
恐怖症状7分均分1
偏执症状6分均分1
饮食睡眠7分均分1
精神症状10分均分1


目标是从上述文字里面，把后面相应的数字信息提取出来，存在相应的变量或者表格中（最终是会放到excel里面），需要请教大神，如何能提取出来？因为数字可能为1位数也可能2位数也可能3位数。
希望能示范第一句“你的总分为90分，总均分为1分 你的标准分为113分”

感激不尽，会分割文字信息的请提示一下方法
作者: 续花丶    时间: 2014-3-31 01:21
本帖最后由 续花丶 于 2014-4-2 04:24 编辑




作者: 小西    时间: 2014-3-31 11:37
续花丶 发表于 2014-3-31 01:21
剩下的自己理解。

以 分 为标志分割
你把你的源串 复制到文本,然后用替换功能 把 分 换成 空格 看下 每个数组成员是什么样

源串="躯体化   12   均   1强迫症状10   均   1人际敏感9   均   1抑郁症状13   均   1焦虑症状10   均   1敌对症状6   均   1恐怖症状7   均   1偏执症状6   均   1饮食睡眠7   均   1精神症状10   均   1"


作者: 小西    时间: 2014-3-31 11:48
  1.    
  2.     //源串=str.replace(help.getclip(),"\r\n","")   ////此处用处将内容复制到剪切板,然后获取使用
  3.    
  4.     源串="你的总分为90分，总均分为1分 你的标准分为113分躯体化分12分均分1强迫症状10分均分1人际敏感9分均分1抑郁症状13分均分1焦虑症状10分均分1敌对症状6分均分1恐怖症状7分均分1偏执症状6分均分1饮食睡眠7分均分1精神症状10分均分1"
  5.         retArray
  6.     ret=str.regexmatchtext("\\d+",源串,retArray)
  7.     traceprint("数字个数: "&ret)
  8.     for(a=0;a<ret;a++)
  9.         traceprint(retArray[a])
  10.     endfor
复制代码


只要每个报告里面的每个项目位置都是固定的,就可以直接将 数组 retArray 的成员,一一对应到位.
如果不是固定的,那就得再做处理.
作者: 冷月无痕    时间: 2014-3-31 15:47
本帖最后由 冷月无痕 于 2014-3-31 15:51 编辑

楼上的都正确,不过需要是固定格式的
还有一种思路是,获取每个字符判断是否整型,如果是保存,连续是,保存为一个数

文本 = "你的总分为90分，总均分为1分 你的标准分为113分体化分12分均分1强迫症状10分均分1人际敏感9分均分1抑郁症状13分均分1焦虑症状10分均分1敌对症状6分均分1恐怖症状7分均分1偏执症状6分均分1饮食睡眠7分均分1精神症状10分均分1"

  1. <p>文本 = "你的总分为90分，总均分为1分 你的标准分为113分体化分12分均分1强迫症状10分均分1人际敏感9分均分1抑郁症状13分均分1焦虑症状10分均分1敌对症状6分均分1恐怖症状7分均分1偏执症状6分均分1饮食睡眠7分均分1精神症状10分均分1"
  2.     长度 = 字符串.长度(文本)
  3.     计次判断=0,临时结果,结果=数组[],记录判断=0
  4.     遍历(计次=0;计次<长度-1;计次++)
  5.         内容 = 字符串.截取(文本,计次,计次+1)
  6.         如果(类型.是否为整型(内容) == 真)
  7.             计次判断++
  8.             临时结果 &= 内容
  9.             记录判断=1   
  10.         否则
  11.             如果(记录判断 == 1)
  12.                 数组空间.增加(结果,临时结果,1)
  13.                 记录判断=0
  14.                 临时结果=""
  15.             如果结束
  16.             计次判断 = 0
  17.         如果结束
  18.     遍历结束</p><p>如果(记录判断 == 1)
  19.     数组空间.增加(结果,临时结果,1)
  20. 如果结束
  21. 大小
  22. 数组空间.大小(结果,大小)
  23. 遍历(计次=0;计次<大小;计次++)
  24.     调试输出(结果[计次])
  25. 遍历结束</p>
复制代码
测试结果如下
[attach]15138[/attach]
作者: 小西    时间: 2014-4-1 02:08
冷月无痕 发表于 2014-3-31 15:47
楼上的都正确,不过需要是固定格式的
还有一种思路是,获取每个字符判断是否整型,如果是保存,连续是,保存为一 ...

提取数字,一行代码能处理的事情,何必要写这么多呢.
还有二楼的处理方法是错误的.达不到要求效果
作者: 续花丶    时间: 2014-4-1 16:38
小西 发表于 2014-4-1 02:08
提取数字,一行代码能处理的事情,何必要写这么多呢.
还有二楼的处理方法是错误的.达不到要求效果 ...

  =  =，受教了。

。。反正所有字都不会变  变的只是数字而已，慢慢提取也可以啊。
表达一下方法而已。。
作者: 小西    时间: 2014-4-2 02:44
续花丶 发表于 2014-4-1 16:38
=  =，受教了。

。。反正所有字都不会变  变的只是数字而已，慢慢提取也可以啊。

表面是说是 受教 ,其实实际上还是在为自己开脱.狡辩.

还很轻描淡写的 "表达一下方法而已",你的方法在这个实例中就是一个错误.

自己去仔细将你上面的代码认真看看,实例操作一下,看能提出几个数字来.
再将你的 "慢慢提取也可以" 实现出来.
想学精,就改改你的不动手,想当然的轻浮态度吧.

作者: 续花丶    时间: 2014-4-2 04:42
小西 发表于 2014-4-2 02:44
表面是说是 受教 ,其实实际上还是在为自己开脱.狡辩.

还很轻描淡写的 "表达一下方法而已",你的方法在这 ...


知道你是大神.有大神的姿态.说个受教还成了为自己开脱.狡辩.

改改我不动手.看到这句话我也想到了一句话.我去年买了个表！

再次受教了。大神见了许多，你这种还没见过几次。
作者: 小西    时间: 2014-4-2 12:18
续花丶 发表于 2014-4-2 04:42
知道你是大神.有大神的姿态.说个受教还成了为自己开脱.狡辩.

改改我不动手.看到这句话我也想到了一句话. ...

不要以为自己写了几行源码放上面就算是动手.
你那几行代码能运行下去么?
就算补上 未添加的 变量,将遍历里面 数组下标 改对 得出的结果有用么?
运行一下我写的.冷月写的.
结合楼主要求,回头跟你自己写的去比较一下.
作者: 续花丶    时间: 2014-4-2 13:43
本帖最后由 续花丶 于 2014-4-2 13:45 编辑
小西 发表于 2014-4-2 12:18
不要以为自己写了几行源码放上面就算是动手.
你那几行代码能运行下去么?
就算补上 未添加的 变量,将遍历 ...

这不我都知道错了，删除了我表达的意思是  分割试试 我没说我的就能运行。


作者: 境界程序员    时间: 2014-4-3 13:02
冷月无痕 发表于 2014-3-31 15:47
楼上的都正确,不过需要是固定格式的
还有一种思路是,获取每个字符判断是否整型,如果是保存,连续是,保存为一 ...

版主真贴心我先分析分析，绝不拿来主义



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1