【01-21 皮肤分享】每日诗词

再来个含全诗的
跟上面的皮肤差不多，区别就是鼠标移至皮肤上时以提示的方式显示全诗
[Rainmeter]
Update=1000
DynamicWindowSize=1
AccurateText=1
Group=今日诗词|显示隐藏
[Metadata]
Author=somi, so.5@qq.com
Version=1.0.2301
[Variables]
[MS取消置顶]
Measure=Loop
StartValue=55
EndValue=0
Increment=-1
LoopCount=1
IfEqualValue=0
IfEqualAction=[!DisableMeasure #CurrentSection#][!ZPos 0]
;-------------------
[MS今日诗词]
Measure=WebParser
UpdateRate=600
Url=https://v2.jinrishici.com/one.json
RegExp=(?siU)"content":"(.*)","popularity":.*,"origin":{"title":"(.*)","dynasty":"(.*)","author":"(.*)","content":\[(.*)\],"translate":(.*)},"matchTags":\[(.*)\],"recommendedReason"
FinishAction=[!ZPos 1][!EnableMeasure MS取消置顶][!CommandMeasure MS取消置顶 "Reset"][!SetOption 测量高宽 Text "[MS诗句]#CRLF#[MS诗名] - [MS作者] [[MS朝代]]。"][!SetOption 测量高宽 InlinePattern "[MS诗名] - [MS作者] \[[MS朝代]\]"][!SetOption 今日诗词 Text "[MS诗句]#CRLF#[MS诗名] - [MS作者] [[MS朝代]]。"][!SetOption 今日诗词 InlinePattern "[MS诗名] - [MS作者] \[[MS朝代]\]"][!SetOption 今日诗词 InlinePattern2 "[MS诗名] - [MS作者] \[[MS朝代]\]"][!SetOption 今日诗词 InlinePattern3 "\[[MS朝代]\](。)"][!UpdateMeter *][!Redraw]
[MS诗句]
Measure=WebParser
Url=[MS今日诗词]
StringIndex=1
[MS诗名]
Measure=WebParser
Url=[MS今日诗词]
StringIndex=2
[MS朝代]
Measure=WebParser
Url=[MS今日诗词]
StringIndex=3
Substitute="唐代":"唐","宋代":"宋","清代":"清"
[MS作者]
Measure=WebParser
Url=[MS今日诗词]
StringIndex=4
[MS全诗]
Measure=WebParser
Url=[MS今日诗词]
StringIndex=5
;简单的断行对诗原结构的重现不是很理想
Substitute='","':"","。":"。#CRLF#",'"':""
[MS解读]
Measure=WebParser
Url=[MS今日诗词]
StringIndex=6
Substitute='","':"","。":"。#CRLF#",'"':""
[MS场境]
Measure=WebParser
Url=[MS今日诗词]
StringIndex=7
Substitute='","':"",'"':""
;-------------------
[测量高宽]
Meter=String
X=0
Y=0
FontFace=Segoe UI
FontColor=0,0,0,0
FontSize=12
;诗名与作者
InlineSetting=Size|10
;行距
InlinePattern2=\R
InlineSetting2=Size|20
Padding=8,-3,0,5
UpdateDivider=-1
[今日诗词]
Meter=String
X=([测量高宽:W]/2)
Y=([测量高宽:H]/2)
W=[测量高宽:W]
H=[测量高宽:H]
StringAlign=CenterCenter
FontFace=Segoe UI
FontColor=230,230,230,230
FontSize=12
;诗名与作者
InlineSetting=Size|10
InlineSetting2=Color|211,211,211,230
;将添加到作者后面的句号透明化
InlineSetting3=Color|0,0,0,0
;行距
InlinePattern4=\R
InlineSetting4=Size|20
;字体阴影
InlineSetting5=Shadow|1|1|1|80,80,80,160
InlineSetting6=Shadow|-1|-1|1|80,80,80,160
ToolTipTitle=[MS诗名] - [MS作者] [[MS朝代]]
TooltipText=[MS全诗]
Padding=8,-3,0,5
SolidColor=0,0,0,1
Antialias=1
DynamicVariables=1
UpdateDivider=-1
LeftMouseUpAction=https://baike.baidu.com/item/[MS诗名]
MouseOverAction=[!ZPos 1][!SetOption #CurrentSection# SolidColor 2D79C4][!UpdateMeter #CurrentSection#][!Redraw]
MouseLeaveAction=[!ZPos 0][!DisableMeasure MS取消置顶][!SetOption #CurrentSection# SolidColor 0,0,0,1][!UpdateMeter #CurrentSection#][!Redraw]

支持下。不错。

local str = "这是一个测试，看看效果。" --------- 修改位置1
local new_str = ""
local chinese_pattern = "[%z\1-\127]"
for i = 1, #str do
local c = string.sub(str, i, i)
if not string.find(c, chinese_pattern) or c == "，" or c == "。" then
new_str = new_str.. c.. "\n"
else
new_str = new_str.. c
end
end
print(new_str) --------修改位置2
如果上面的代码无误能实现所要的效果，那位置1改成：
local str = SKIN:GetMeasure('MS今日诗词'):GetStringValue()
位置2改成：
SKIN:Bang(‘[!SetOption 每日诗词 Text '..new_str..']’）
-----------------
又或者可以使用 Substitute 来实现，
在 [MS每日诗词] 下面最后加上
;RegexpSubstitute=1
Substitute="，":"，#CTRL#","。":"。#CTRL#","[中文码范围怎表示我忘了]":"[中文码范围怎表示我忘了]#CTRL#"