為
從詩中選擇行文本
打開讀詩
declare @linetext char(25)
declare @str varchar(10)
set @str= ' '
從readPoem獲取下壹個到@linetext
while(@@fetch_status=0)開始
set @ str = @ str+substring(@ line text,1,1)
結束
打印(@str)
關閉讀詩
解除readPoem分配