Office中国论坛/Access中国论坛

标题: 如何只复制第一个数字前面的内容 [打印本页]

作者: xyh2732 时间: 2013-2-4 23:04
标题: 如何只复制第一个数字前面的内容
本帖最后由 xyh2732 于 2013-2-5 09:24 编辑

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

作者: netguestcn 时间: 2013-2-5 06:32
做了两个函数

作者: netguestcn 时间: 2013-2-5 06:40
带上附件[attach]51249[/attach]

作者: kangking 时间: 2013-2-5 09:04
请将示例保存为较低版本。

作者: xyh2732 时间: 2013-2-5 09:24

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

非常感谢你的帮忙，更新附件[attach]51250[/attach]

作者: Agent 时间: 2013-2-5 14:43
[attach]51251[/attach]

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

作者: xyh2732 时间: 2013-2-5 14:55

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

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

作者: Agent 时间: 2013-2-5 14:58
本帖最后由 Agent 于 2013-2-5 15:04 编辑

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 时间: 2013-2-5 15:29

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

改成这样吧 If No ...

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

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

复制代码

作者: xyh2732 时间: 2013-2-5 16:15

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)