【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join

roych

引子：
    少年听雨歌楼上，红烛昏罗帐。壮年听雨客舟中，江阔云低，断雁叫西风。
　 而今听雨僧庐下，鬓已星星也。悲欢离合总无情，一任阶前点滴到天明。
    从青楼听曲的少年，到失意落魄的壮年，再到淡然物外的中老年，古人蒋捷一曲《虞美人.听雨》娓娓道出，雨依旧，心已老，个中辛酸，却说与谁听？人生终究是一场孤旅，不断地得到，然后不断地失去。“一任阶前点滴到天明”，人生无常，“任”与不“任”，常是无补于事，惟看透悲欢离合，方能了解真谛。

    前段日子，有版友问及拆分短信息成若干条，并排列整齐而美之。此诚Access界中“悲欢离合”也，拆分为“离”，排列整齐，则需增空格以补齐，此为“合”。
    Access界“离合”早有成法：分：Split；合：Join。简而言之，Split是根据标识字符来分割字符串，分割后得到一个数组；而Join则按标识字符将数组连成一个字符串。
    实例来自于《新开一贴：怎样把收到的多条短信按每条一行写入文本框中》附件加以修改，在此对bjcompass一并谢过。希望大家能藉此看透Access中的“悲欢离合”。

【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集

【新手进阶】之一：基础算法（一）
【新手进阶】之二：基础算法（二）
【新手进阶】之三：基础算法（三）
【新手进阶】之四：基础算法（四）
【新手进阶】之五：排序搜索（一）
【新手进阶】之六：排序搜索（二）
【新手进阶】之七：递归算法
【新手进阶】之八：冒泡排序
【新手进阶】之九：浅谈不绑定数据源操作记录
【新手进阶】之十：工作日的计算
【新手进阶】之十一：“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二：从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三：Outlook风格导航界面
【新手进阶】之十四：仓库管理系统

worryd1

谢谢分享

wu8313

帖子已更新。修改了 函数 返回值 的数据类型，并贴上了 短信的原始内容。

wu8313

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#','#||')

purplerose

哈哈，ROYCH 和冬瓜有一拼  技术型加诗人

微微森林

版主很会讲故事。

wufeng980114

文采不错，ACCESS用的也在行

asklove

受教了

Henry D. Sy

奇才也

layaman_999

人才，