Office中國論壇/Access中國論壇

標(biāo)題: 【新手入門】之六:“悲歡離合總無情”——淺談Split和Join [打印本頁]

作者: roych    時間: 2012-8-1 22:01
標(biāo)題: 【新手入門】之六:“悲歡離合總無情”——淺談Split和Join
引子:
    少年聽雨歌樓上,紅燭昏羅帳。壯年聽雨客舟中,江闊云低,斷雁叫西風(fēng)。
  而今聽雨僧廬下,鬢已星星也。悲歡離合總無情,一任階前點滴到天明。
    從青樓聽曲的少年,到失意落魄的壯年,再到淡然物外的中老年,古人蔣捷一曲《虞美人.聽雨》娓娓道出,雨依舊,心已老,個中辛酸,卻說與誰聽?人生終究是一場孤旅,不斷地得到,然后不斷地失去!耙蝗坞A前點滴到天明”,人生無常,“任”與不“任”,常是無補(bǔ)于事,惟看透悲歡離合,方能了解真諦。

    前段日子,有版友問及拆分短信息成若干條,并排列整齊而美之。此誠Access界中“悲歡離合”也,拆分為“離”,排列整齊,則需增空格以補(bǔ)齊,此為“合”。
    Access界“離合”早有成法:分:Split;合:Join。簡而言之,Split是根據(jù)標(biāo)識字符來分割字符串,分割后得到一個數(shù)組;而Join則按標(biāo)識字符將數(shù)組連成一個字符串。
    實例來自于《新開一貼:怎樣把收到的多條短信按每條一行寫入文本框中》附件加以修改,在此對bjcompass一并謝過。希望大家能藉此看透Access中的“悲歡離合”。
[attach]50072[/attach]
【新手入門】之一:If分支語句
【新手入門】之二:分支語句總結(jié)
【新手入門】之三:循環(huán)語句For
【新手入門】之四:循環(huán)語句Do和死循環(huán)
【新手入門】之五:公共變量與傳址過程、傳值過程
【新手入門】之六:“悲歡離合總無情”——淺談Split和Join
【新手入門】之七:嵌套與并列——再談If流程問題
【新手入門】之八:“連就連”——淺談“&”和“+”連接符的區(qū)別

【新手入門】之九:從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問
【新手入門】之十:書到用時方恨少——自定義菜單(Access 2003)的制作
【新手入門】之十一:淺談ADO之序言
【新手入門】之十二:淺談ADO之Connection
【新手入門】之十三:淺談ADO之Conmmand(上)
【新手入門】之十四:淺談ADO之Command(下)
【新手入門】之十五:淺談ADO之Recordset(上)
【新手入門】之十六:淺談ADO之Recordset(下)
【新手入門】之十七:淺談列表框的使用
【新手入門】之十八:雙擊列表框修改數(shù)據(jù)
【新手入門】之十九:從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十:“書與書簽”——bookmark屬性答疑
【新手入門】之二十一:記錄集的“凌遲”——逐條導(dǎo)出記錄集

【新手進(jìn)階】之一:基礎(chǔ)算法(一)
【新手進(jìn)階】之二:基礎(chǔ)算法(二)
【新手進(jìn)階】之三:基礎(chǔ)算法(三)
【新手進(jìn)階】之四:基礎(chǔ)算法(四)
【新手進(jìn)階】之五:排序搜索(一)
【新手進(jìn)階】之六:排序搜索(二)
【新手進(jìn)階】之七:遞歸算法
【新手進(jìn)階】之八:冒泡排序
【新手進(jìn)階】之九:淺談不綁定數(shù)據(jù)源操作記錄
【新手進(jìn)階】之十:工作日的計算
【新手進(jìn)階】之十一:“庖丁解!焙汀凹o(jì)昌學(xué)射”——淺談表格式文本數(shù)據(jù)的導(dǎo)入
【新手進(jìn)階】之十二:從四腳騰空的奔馬談起——原來界面可以這樣設(shè)計
【新手進(jìn)階】之十三:Outlook風(fēng)格導(dǎo)航界面
【新手進(jìn)階】之十四:倉庫管理系統(tǒng)
作者: 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
才子會武術(shù)科學(xué)家都擋不。!{: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 和冬瓜有一拼  技術(shù)型加詩人
作者: wu8313    時間: 2016-4-19 16:26
本帖最后由 wu8313 于 2016-5-9 10:30 編輯

1、使用自定義 sql 函數(shù) 也可以處理,編碼量會少一些。(我沒有寫用戶界面來呈現(xiàn)數(shù)據(jù))

2、我直接抄襲別人的函數(shù),稍微改動了一下,原作者返回值為 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

--創(chuàng)建字符串分拆的函數(shù)
create function [dbo].[fsplit_拆分短信](
@str varchar(8000)        --要分拆的字符串
,@spli varchar(10)        --字符串分隔符
)
returns @T_原始短信內(nèi)容 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_原始短信內(nèi)容 values(left(@str,@i-1))
select @str=substring(@str,@i+@splen,8000)
,@i=charindex(@spli,@str)
end
if @str<>'' insert into @T_原始短信內(nèi)容 values(@str)
return
end

GO

--調(diào)用
select [被拆分的短信] from dbo.fsplit_拆分短信
('13021123456#我們已經(jīng)完成了所有的工作,大家盡情的享受愉快的假期。#20120605083012#||'+
'14232345678#信息已經(jīng)收到。#20120506083134#||'+
'13126666666#祝賀少年管弦樂團(tuán)取得優(yōu)異成績,感謝輔導(dǎo)教師的努力。#20120605093012#||'+
'13888888888#近期暴雨頻繁,請各位員工出行注意安全。#20120605093412#','#||')

作者: wu8313    時間: 2016-5-9 10:32
帖子已更新。修改了 函數(shù) 返回值 的數(shù)據(jù)類型,并貼上了 短信的原始內(nèi)容。
作者: worryd1    時間: 2023-12-11 22:43
謝謝分享




歡迎光臨 Office中國論壇/Access中國論壇 (http://www.mzhfr.cn/) Powered by Discuz! X3.3