**请教:如何把一个字段的内容(如(024)-23899087(电话) (024)23987676 23339900(传真) "拆分成多个字段?

2003-05-23 12:18:29 135 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows打印体系结构之Windows内置打印驱动程序时间是一种很残酷的东西，它只会冲淡能够冲淡的，但也会洗尽铅华帮你留下该留下的。1.3.4、Windows内置打印驱动程序现在的Windows下的打印机驱动程序通常分为V4打印机驱动程序（V4 Printer Driver）、XPS打印机驱动程序（XPSDrv）、微软通用打印机驱动程序（Microsoft UniversalPrinter Driver）、微软PostScri... 阅读详情

access字段: phone "(024)-23899087(电话) (024)23987676 23339900(传真) "
我想截取成: area 字段: 024
phone1字段: 23899087
phone2字段: 23987676
phone3字段: 23399900

谢谢!

...全文

Veritas NetBackup 10.1 Windows安装指南：从账户配置到完整部署本文详细介绍了Veritas NetBackup 10.1在Windows系统上的完整安装流程，从账户配置到部署验证。重点讲解了创建专用服务账户、安装组件选择、许可证输入等关键步骤，并提供了常见问题排查和进阶配置建议，帮助用户顺利完成企业级备份解决方案的部署。阅读详情

rolandzhang

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

lilaclone 2003-05-23

打赏
举报

考虑用Instr函数进行拆分，用（电话）、（传真）几个字符串进行匹配判断后再进行截取

sickleliu 2003-05-23

打赏
举报

如果你的accsee字段格式是固定的（我是指中间的分割符，比如空格），那可以用一个循环
一个一个地读取字符，遇到分割符就断开，如果是完全随意的，那就没办法了

lihonggen0 2003-05-23

打赏
举报

你做界面的时候，就应该分成几个文本框分别录入
避免拆分文本的麻烦，而且容易出错！

jy9525 2003-05-23

打赏
举报

up,等待中，我也在考虑

of123 2003-05-23

打赏
举报

'引用Microsoft VBScript Regular Expressions 5.5
Dim strPhone As String
Dim regEx As RegExp
Dim Match, Matches ' Create variable.

strPhone = "(024)-23899087(电话) (024)23987676 23339900(传真) "
Set regEx = New RegExp ' Create a regular expression.

regEx.Pattern = "\d{3,8}"
regEx.Global = True
If regEx.Test(strPhone) Then
Set Matches = regEx.Execute(strPhone)
For Each Match In Matches
MsgBox Match.Value
Next
End If

of123 2003-05-23

打赏
举报

Dim strPhone As String
Dim tmp As String
Dim sField() As String
Dim i, n As Integer

strPhone = "(024)-23899087(电话) (024)23987676 23339900(传真) "
tmp = Replace(strPhone, "(电话)", "")
tmp = Replace(tmp, "(传真)", "")
tmp = Replace(tmp, "(", "")
tmp = Replace(tmp, "-", " ")
tmp = Replace(tmp, ")", " ")
tmp = Trim(Replace(tmp, " ", " "))
sField = Split(tmp, " ")

rs.Addnew
n = 1
For i = 0 To UBound(sFields)
If Len(sField(i)) = 3 Then
rs!area = sField(i)
Else
rs.Fields("phone" & n) = sField(i)
n = n + 1
End If
Next i
rs.Update

qingming81 2003-05-23

打赏
举报

上面的redim phone(N)应改为
redim preserve phone(N) as telephone

qingming81 2003-05-23

打赏
举报

显示时：
Text1.text=phone(N).postcode & "-" & phone(N).phonenumber

qingming81 2003-05-23

打赏
举报

type telephone
dim postcode as long
dim phonenumber as long
end type

dim phone() as telephone

formload时查出有几条电话，赋值N
'输入时
dim N as long
N=N+1
redim phone(N)
phone(N).postcode ="010"
phone(N).phonenumber ="88888888"

rolandzhang 2003-05-23

打赏
举报

基本上有规律,我正在用字符串函数写,请大家考虑:用数组怎么实现?

of123 2003-05-23

打赏
举报

用RegExp对象（正则表达式）处理。
我正在考虑代码。

pigsanddogs 2003-05-23

打赏
举报

要想实现智能就难了点，建议你观察下你access表该字段值的规律，然后统计下，再来写代码

**请教:如何把一个字段的内容(如(024)-23899087(电话) (024)23987676 23339900(传真) "拆分成多个字段?

相关推荐