Office中国论坛/Access中国论坛

标题: 【新手入门】之六:“悲欢离合总无情”——浅谈Split和Join [打印本页]

作者: roych    时间: 2012-8-1 22:01
标题: 【新手入门】之六:“悲欢离合总无情”——浅谈Split和Join
引子:
    少年听雨歌楼上,红烛昏罗帐。壮年听雨客舟中,江阔云低,断雁叫西风。
  而今听雨僧庐下,鬓已星星也。悲欢离合总无情,一任阶前点滴到天明。
    从青楼听曲的少年,到失意落魄的壮年,再到淡然物外的中老年,古人蒋捷一曲《虞美人.听雨》娓娓道出,雨依旧,心已老,个中辛酸,却说与谁听?人生终究是一场孤旅,不断地得到,然后不断地失去。“一任阶前点滴到天明”,人生无常,“任”与不“任”,常是无补于事,惟看透悲欢离合,方能了解真谛。

    前段日子,有版友问及拆分短信息成若干条,并排列整齐而美之。此诚Access界中“悲欢离合”也,拆分为“离”,排列整齐,则需增空格以补齐,此为“合”。
    Access界“离合”早有成法:分:Split;合:Join。简而言之,Split是根据标识字符来分割字符串,分割后得到一个数组;而Join则按标识字符将数组连成一个字符串。
    实例来自于《新开一贴:怎样把收到的多条短信按每条一行写入文本框中》附件加以修改,在此对bjcompass一并谢过。希望大家能藉此看透Access中的“悲欢离合”。
[attach]50072[/attach]
【新手入门】之一:If分支语句
【新手入门】之二:分支语句总结
【新手入门】之三:循环语句For
【新手入门】之四:循环语句Do和死循环
【新手入门】之五:公共变量与传址过程、传值过程
【新手入门】之六:“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七:嵌套与并列——再谈If流程问题
【新手入门】之八:“连就连”——浅谈“&”和“+”连接符的区别

【新手入门】之九:从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十:书到用时方恨少——自定义菜单(Access 2003)的制作
【新手入门】之十一:浅谈ADO之序言
【新手入门】之十二:浅谈ADO之Connection
【新手入门】之十三:浅谈ADO之Conmmand(上)
【新手入门】之十四:浅谈ADO之Command(下)
【新手入门】之十五:浅谈ADO之Recordset(上)
【新手入门】之十六:浅谈ADO之Recordset(下)
【新手入门】之十七:浅谈列表框的使用
【新手入门】之十八:双击列表框修改数据
【新手入门】之十九:从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十:“书与书签”——bookmark属性答疑
【新手入门】之二十一:记录集的“凌迟”——逐条导出记录集

【新手进阶】之一:基础算法(一)
【新手进阶】之二:基础算法(二)
【新手进阶】之三:基础算法(三)
【新手进阶】之四:基础算法(四)
【新手进阶】之五:排序搜索(一)
【新手进阶】之六:排序搜索(二)
【新手进阶】之七:递归算法
【新手进阶】之八:冒泡排序
【新手进阶】之九:浅谈不绑定数据源操作记录
【新手进阶】之十:工作日的计算
【新手进阶】之十一:“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二:从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三:Outlook风格导航界面
【新手进阶】之十四:仓库管理系统
作者: t小宝    时间: 2012-8-1 23:05
第一次看到这首词,不错
作者: ycxchen    时间: 2012-8-2 08:24
roych是第二个老汉,文采不错。
作者: jinzhanxi    时间: 2012-8-2 08:29
受教,支持下
作者: yanwei82123300    时间: 2012-8-2 08:46
才子会武术科学家都挡不住!!{:soso_e113:}
作者: xuwenning    时间: 2012-8-2 08:49
好文采
作者: layaman_999    时间: 2012-8-2 17:44
人才,
作者: Henry D. Sy    时间: 2012-8-2 22:12
奇才也
作者: asklove    时间: 2012-8-3 16:23
受教了
作者: wufeng980114    时间: 2012-8-31 08:34
文采不错,ACCESS用的也在行
作者: 微微森林    时间: 2013-3-28 21:26
版主很会讲故事。
作者: purplerose    时间: 2016-3-18 14:01
哈哈,ROYCH 和冬瓜有一拼  技术型加诗人
作者: wu8313    时间: 2016-4-19 16:26
本帖最后由 wu8313 于 2016-5-9 10:30 编辑

1、使用自定义 sql 函数 也可以处理,编码量会少一些。(我没有写用户界面来呈现数据)

2、我直接抄袭别人的函数,稍微改动了一下,原作者返回值为 int ,我只是改为 nvarchar(4000) 而已。

============================================================

IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[fsplit_拆分短信]') AND type in (N'FN', N'IF', N'TF', N'FS', N'FT'))
DROP FUNCTION [dbo].[fsplit_拆分短信]
GO

--创建字符串分拆的函数
create function [dbo].[fsplit_拆分短信](
@str varchar(8000)        --要分拆的字符串
,@spli varchar(10)        --字符串分隔符
)
returns @T_原始短信内容 table(被拆分的短信 nvarchar(4000))
as
begin
declare @i int,@splen int
select @splen=len(@spli)
,@i=charindex(@spli,@str)
while @i>0
begin
insert into @T_原始短信内容 values(left(@str,@i-1))
select @str=substring(@str,@i+@splen,8000)
,@i=charindex(@spli,@str)
end
if @str<>'' insert into @T_原始短信内容 values(@str)
return
end

GO

--调用
select [被拆分的短信] from dbo.fsplit_拆分短信
('13021123456#我们已经完成了所有的工作,大家尽情的享受愉快的假期。#20120605083012#||'+
'14232345678#信息已经收到。#20120506083134#||'+
'13126666666#祝贺少年管弦乐团取得优异成绩,感谢辅导教师的努力。#20120605093012#||'+
'13888888888#近期暴雨频繁,请各位员工出行注意安全。#20120605093412#','#||')

作者: wu8313    时间: 2016-5-9 10:32
帖子已更新。修改了 函数 返回值 的数据类型,并贴上了 短信的原始内容。
作者: worryd1    时间: 2023-12-11 22:43
谢谢分享




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3