[求助]请教如何提取字符串中的数字？

acred

请问，如果要把一个字符串中的数字提取出来应该怎么做？（字符串长度不定，其中包含的数字的位数也是不定的）；日期又如何做呢？

竹笛

字符串最长有多少字符？

acred

不超过50

举例来说：1.氯丙嗪300mg/日，2.氟哌啶醇癸酸酯100mg，这两个数据都是文本格式的，数字的位置都不一致，我需要分别提取300和100，并转换为数字格式保存。

谢谢！

[此贴子已经被作者于2003-7-15 14:23:46编辑过]

竹笛

我用一个笨办法：
用MID$()和IsNumeric函数结合使用吧

dim strName'要判断的文本
dim i as integer
dim x as string'注意这里是string型，最后您还要转换为integer

for i =1 to 50
if IsNumeric(MID(strName,i,1)) =true then
  x=x & MID(strName,i,1)
end if

next i

以上未经测试，您试试吧。估计问题应该不大。