如何只复制第一个数字前面的内容

xyh2732

请问如何可以在“文本框1”内填写完内容后，把 文本框1 的第一个数字前面的内容复制到 文本框2上。
比如 例子1.文本框1 上输入CEX4654546/CAEI4564564 ,就把第一个数字前的内容复制到 文本框2 上 显示为 “CEX”
例子2.   输入HS(深圳）654654   文本框2 就显示 HS(深圳）
唯一的规律就是只显示第一个数字前面的内容，如果输入时没有数字就直接把内容复制下 文本框2

netguestcn

做了两个函数

netguestcn

带上附件

kangking

请将示例保存为较低版本。

xyh2732

kangking 发表于 2013-2-5 09:04
请将示例保存为较低版本。

非常感谢你的帮忙，更新附件

Agent

写了下.希望你是要这样子

xyh2732

Agent 发表于 2013-2-5 14:43
写了下.希望你是要这样子

非常感谢你的帮忙！有个问题比如我输入CEX111111/CAEI2222222 文本框2会显示CEX/CAEI,数字是取消了但是我想要的是第一个数字前面的内容“CEX” ，后面的全部不要，有没有办法实现啊？

Agent

xyh2732 发表于 2013-2-5 14:55
非常感谢你的帮忙！有个问题比如我输入CEX111111/CAEI2222222 文本框2会显示CEX/CAEI,数字是取消了但是我 ...

在代码遍历字符串的时候,加多个判断字符是否是"/",是的话就执行提取,不是就退出if

改成这样吧 If Not Mid(strM, I, 1) Like "[0-9]" Or Mid(strM, I, 1) = "/" Then

roych

Agent 发表于 2013-2-5 14:58
在代码遍历字符串的时候,加多个判断字符是否是"/",是的话就执行提取,不是就退出if

改成这样吧 If No ...

不必那么麻烦的。把你的代码稍稍改动一下就好了。反正楼主只需要判断出第一个数值的位置，然后Left即可。

1. 
   
2. Private Sub Text0_LostFocus()
   
3.   Dim strM As String     '初始字符串
   
4.   Dim strOut As String   '输出字符串变量
   
5.   Dim i
   
6.   If Me.Text0.Value <> "" Then
   
7.   strM = Me.Text0
   
8.   End If
   
9. '从第一个字符向最后一个字符循环,以提取每个字符
   
10.   For i = 1 To Len(strM)
    
11.       '判断是否为0到9字符,是则赋值输出
    
12.       If Mid(strM, i, 1) Like "[0-9]" Then
    
13.          strOut = Left(strM, i - 1)
    
14.          Exit For
    
15.       End If
    
16.   Next i
    
17.   Me.Text2 = strOut
    
18. End Sub
    

复制代码

xyh2732

roych 发表于 2013-2-5 15:29
不必那么麻烦的。把你的代码稍稍改动一下就好了。反正楼主只需要判断出第一个数值的位置，然后Left即可。

正是想要的，非常感谢你的帮忙！