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>")