以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 XSL/XSLT/XSL-FO/CSS 』  (http://bbs.xml.org.cn/list.asp?boardid=8)
----  求教如何用XSL进行日期格式转换及字符串组合  (http://bbs.xml.org.cn/dispbbs.asp?boardid=8&rootid=&id=21413)

--  作者：阿飞虎
--  发布时间：8/23/2005 9:31:00 PM

--  求教如何用XSL进行日期格式转换及字符串组合
有一段XML文件如下：
  <item>
      <title>文章标题1</title>
      <pubDate>Tue, 23 Aug 2005 19:18:08 GMT</pubDate>
  </item>

希望通过XSL将内容最终表现为如下形式：

文章标题1 [2005-8-23]

所以需要将title与pubDate组合起来，并且对pubDate进行格式化。
请教大大们如何实现啊？谢谢！

--  作者：Qr
--  发布时间：8/23/2005 9:50:00 PM

--  
日期格式转换有一个formatDate()，但对于如上格式好象不行（没用过）。将两个字符串连接的方法XSL好象没有。用javascript实现比较容易，XSLT可用js。
--  作者：孤独
--  发布时间：8/27/2005 12:34:00 AM

--  
Function return_RFC822_Date(byVal myDate, byVal TimeZone)
Dim myDay, myDays, myMonth, myYear
Dim myHours, myMinutes, mySeconds
   
myDate = CDate(myDate)
myDay = EnWeekDayName(myDate)
myDays = Right("00" & Day(myDate),2)
myMonth = EnMonthName(myDate)
myYear = Year(myDate)
myHours = Right("00" & Hour(myDate),2)
myMinutes = Right("00" & Minute(myDate),2)
mySeconds = Right("00" & Second(myDate),2)
   

return_RFC822_Date = myDay&", "& _
myDays&" "& _
myMonth&" "& _
myYear&" "& _
myHours&":"& _
myMinutes&":"& _
mySeconds&" "& _
" " & TimeZone
End Function

Function EnWeekDayName(InputDate)
Dim Result
Select Case WeekDay(InputDate,1)
Case 1:Result="Sun"
Case 2:Result="Mon"
Case 3:Result="Tue"
Case 4:Result="Wed"
Case 5:Result="Thu"
Case 6:Result="Fri"
Case 7:Result="Sat"
End Select
EnWeekDayName = Result
End Function

Function EnMonthName(InputDate)
Dim Result
Select Case Month(InputDate)
Case 1:Result="Jan"
Case 2:Result="Feb"
Case 3:Result="Mar"
Case 4:Result="Apr"
Case 5:Result="May"
Case 6:Result="Jun"
Case 7:Result="Jul"
Case 8:Result="Aug"
Case 9:Result="Sep"
Case 10:Result="Oct"
Case 11:Result="Nov"
Case 12:Result="Dec"
End Select
EnMonthName = Result
End Function

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 31.250ms