Call xiaofang()

xftime = "13"

Call xiaofang()

xftime = "14"

Call xiaofang()

xftime = "15"

Call xiaofang()

xftime = "16"

Call xiaofang()

xftime = "18"

Call xiaofang()

xftime = "21"

Call xiaofang()

//调用全部文档结束部分写入文档。
Call over()

RunApp "d:\convertz.exe /o:utf8 d:\1.txt"

Delay 2000

Call plugin.file.CopyFile("d:\1.txt","d:\"&plugin.office.readxls(1,1,1)&".plym")

Call Plugin.Office.CloseXls()
Sub pre3()
		Call Plugin.File.WriteFileEx("d:\1.txt", "  <Playlist Type="""&"TimingPoint"""&" Name=""" &"插播段"""&" PausedCut="""&"True"""&" IsPlayByTimes="""&"True"""&" PlayTimes="""&"1"""&" PlayDuration="""&"00:00:00"""&">")
		Call Plugin.File.WriteFileEx("d:\1.txt", "    <Context>")
		Call Plugin.File.WriteFileEx("d:\1.txt", "      <BasicPage>")
        Call Plugin.File.WriteFileEx("d:\1.txt", "        <Page Name="""&"节目页"""&" PlayType="""&"Order"""&" Duration="""&"00:06:00"""&" PlayTimes="""&"1"""&" BackColor="""&"255#0#0#0"""&" BackgroundImage="""&_
""" "& "ImageLayout="""&"Stretch"""&" BackMusic="""" CustomString="""&""">")
		Call Plugin.File.WriteFileEx("d:\1.txt", "          <Window Name="""&"消防整点提示"""&" X="""&"0"""&" Y="""&"0"""&" Width="""&"1280"""&" Height="""&"672"""&">")
End Sub
Sub pre()
		Call Plugin.File.WriteFileEx("d:\1.txt", "<?xml version="""&"1.0"""&"?>")
		Call Plugin.File.WriteFileEx("d:\1.txt", "<PlayProgram X="""&"1921"""&" Y="""&"1"""&" Width="""&"1280"""&" Height="""&"672"&""">")
		End Sub
Sub pre1()
		Call Plugin.File.WriteFileEx("d:\1.txt", "  <Playlist Type="""&"TimeSegment"""&" Name=""" &begin &"开始播放"""&" Date="""&"09/04/2012#09/30/2022"""&" Day="""&"True#True#True#True#True#True#True"""&" Time="""&begin&"#"&ending&""">")
		Call Plugin.File.WriteFileEx("d:\1.txt", "    <Context>")
		Call Plugin.File.WriteFileEx("d:\1.txt", "      <BasicPage>")
Call Plugin.File.WriteFileEx("d:\1.txt", "        <Page Name="""&begin&"节目页"""&" PlayType="""&"Circle"""&" Duration="""&"00:06:00"""&" PlayTimes="""&"1"""&" BackColor="""&"255#0#0#0"""&" BackgroundImage="""&_
""" "& "ImageLayout="""&"Stretch"""&" BackMusic="""" CustomString="""&""">")
		Call Plugin.File.WriteFileEx("d:\1.txt", "          <Window Name="""&begin&"到-"&ending&"结束"""&" X="""&"0"""&" Y="""&"0"""&" Width="""&"1280"""&" Height="""&"672"""&">")
End Sub
Sub pre2()
		Call Plugin.File.WriteFileEx("d:\1.txt", "  <Playlist Type="""&"PeriodInTimeSegment"""&" Name=""" &begin &"开始插播"""&" Date="""&"09/04/2012#09/30/2022"""&" Day="""&"True#True#True#True#True#True#True"""&" Time="""&begin&"#"&ending&""">")
		Call Plugin.File.WriteFileEx("d:\1.txt", "    <Context>")
		Call Plugin.File.WriteFileEx("d:\1.txt", "      <BasicPage>")
Call Plugin.File.WriteFileEx("d:\1.txt", "        <Page Name="""&begin&"插播"""&" PlayType="""&"Circle"""&" Duration="""&"00:06:00"""&" PlayTimes="""&"1"""&" BackColor="""&"255#0#0#0"""&" BackgroundImage="""&_
""" "& "ImageLayout="""&"Stretch"""&" BackMusic="""" CustomString="""&""">")
		Call Plugin.File.WriteFileEx("d:\1.txt", "          <Window Name="""&begin&"到-"&ending&"结束"""&" X="""&"0"""&" Y="""&"0"""&" Width="""&"1280"""&" Height="""&"672"""&">")
End Sub
Sub over()
	Call Plugin.File.WriteFileEx("d:\1.txt", "      </ArrayOfTimingPointInfo>")	
	Call Plugin.File.WriteFileEx("d:\1.txt", "    </TimingInfo>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "  </Playlist>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "</PlayProgram>")	
End Sub
Sub over1
	Call Plugin.File.WriteFileEx("d:\1.txt", "          </Window>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "        </Page>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "      </BasicPage>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "      <GlobalPage>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "        <Page />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "      </GlobalPage>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "    </Context>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "  </Playlist>")
End Sub
	
Sub over2
	Call Plugin.File.WriteFileEx("d:\1.txt", "          </Window>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "        </Page>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "      </BasicPage>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "      <GlobalPage>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "        <Page />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "      </GlobalPage>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "    </Context>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "    <TimingInfo>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "      <ArrayOfTimingPointInfo>")
End Sub
	
Sub pic()
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <Item Type=""" & "Picture"">")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Media>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "                <PictureMedia>")	
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Name>"&typ&"</Name>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <PlayDuration>")