- 令 xftime = "16"
- 调用 xiaofang()
- 令 xftime = "18"
- 调用 xiaofang()
- 令 xftime = "21"
- 调用 xiaofang()
- 注释:调用全部文档结束部分写入文档。
- 调用 over()
- 启动程序或打开文件 "d:\convertz.exe /o:utf8 d:\1.txt"
- 延时 2000 毫秒
- 调用 file.CopyFile("d:\1.txt","d:\" & office.readxls(1,1,1) & ".plym")
- 调用 Office.CloseXls()
- 子程序 pre3()
- 调用 File.WriteFileEx("d:\1.txt"," <Playlist Type=""" & "TimingPoint""" & " Name=""" & "插播段""" & " PausedCut=""" & "True""" & " IsPlayByTimes=""" & "True""" & " PlayTimes=""" & "1""" & " PlayDuration=""" & "00:00:00""" & ">")
- 调用 File.WriteFileEx("d:\1.txt"," <Context>")
- 调用 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="""&""">")
- 调用 File.WriteFileEx("d:\1.txt"," <Window Name=""" & "消防整点提示""" & " X=""" & "0""" & " Y=""" & "0""" & " Width=""" & "1280""" & " Height=""" & "672""" & ">")
- 子程序结束
- 子程序 pre()
- 调用 File.WriteFileEx("d:\1.txt","<?xml version=""" & "1.0""" & "?>")
- 调用 File.WriteFileEx("d:\1.txt","<PlayProgram X=""" & "1921""" & " Y=""" & "1""" & " Width=""" & "1280""" & " Height=""" & "672" & """>")
- 子程序结束
- 子程序 pre1()
- 调用 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 & """>")
- 调用 File.WriteFileEx("d:\1.txt"," <Context>")
- 调用 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="""&""">")
- 调用 File.WriteFileEx("d:\1.txt"," <Window Name=""" & begin & "到-" & ending & "结束""" & " X=""" & "0""" & " Y=""" & "0""" & " Width=""" & "1280""" & " Height=""" & "672""" & ">")
- 子程序结束
- 子程序 pre2()
- 调用 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 & """>")
- 调用 File.WriteFileEx("d:\1.txt"," <Context>")
- 调用 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="""&""">")
- 调用 File.WriteFileEx("d:\1.txt"," <Window Name=""" & begin & "到-" & ending & "结束""" & " X=""" & "0""" & " Y=""" & "0""" & " Width=""" & "1280""" & " Height=""" & "672""" & ">")
- 子程序结束
- 子程序 over()
- 调用 File.WriteFileEx("d:\1.txt"," </ArrayOfTimingPointInfo>")
- 调用 File.WriteFileEx("d:\1.txt"," </TimingInfo>")
- 调用 File.WriteFileEx("d:\1.txt"," </Playlist>")
- 调用 File.WriteFileEx("d:\1.txt","</PlayProgram>")
- 子程序结束
- 子程序 over1
- 调用 File.WriteFileEx("d:\1.txt"," </Window>")
- 调用 File.WriteFileEx("d:\1.txt"," </Page>")
- 调用 File.WriteFileEx("d:\1.txt"," </BasicPage>")
- 调用 File.WriteFileEx("d:\1.txt"," <GlobalPage>")
- 调用 File.WriteFileEx("d:\1.txt"," <Page />")
- 调用 File.WriteFileEx("d:\1.txt"," </GlobalPage>")
- 调用 File.WriteFileEx("d:\1.txt"," </Context>")
- 调用 File.WriteFileEx("d:\1.txt"," </Playlist>")
- 子程序结束
- 子程序 over2
- 调用 File.WriteFileEx("d:\1.txt"," </Window>")
- 调用 File.WriteFileEx("d:\1.txt"," </Page>")
- 调用 File.WriteFileEx("d:\1.txt"," </BasicPage>")
- 调用 File.WriteFileEx("d:\1.txt"," <GlobalPage>")
- 调用 File.WriteFileEx("d:\1.txt"," <Page />")
- 调用 File.WriteFileEx("d:\1.txt"," </GlobalPage>")
- 调用 File.WriteFileEx("d:\1.txt"," </Context>")
- 调用 File.WriteFileEx("d:\1.txt"," <TimingInfo>")
- 调用 File.WriteFileEx("d:\1.txt"," <ArrayOfTimingPointInfo>")
- 子程序结束
- 子程序 pic()
- 调用 File.WriteFileEx("d:\1.txt"," <Item Type=""" & "Picture"">")
- 调用 File.WriteFileEx("d:\1.txt"," <Media>")
- 调用 File.WriteFileEx("d:\1.txt"," <PictureMedia>")
- 调用 File.WriteFileEx("d:\1.txt"," <Name>" & typ & "</Name>")
- 调用 File.WriteFileEx("d:\1.txt"," <PlayDuration>")
- 调用 File.WriteFileEx("d:\1.txt"," <string>0#0#0#" & lenth & "#0</string>")
- 调用 File.WriteFileEx("d:\1.txt"," </PlayDuration>")
- 调用 File.WriteFileEx("d:\1.txt"," <BeginTime>0001-01-01T00:00:00</BeginTime>")
- 调用 File.WriteFileEx("d:\1.txt"," <EndTime>0001-01-01T00:00:00</EndTime>")
- 调用 File.WriteFileEx("d:\1.txt"," <Times>-1</Times>")
- 调用 File.WriteFileEx("d:\1.txt"," <BackColor>")
- 调用 File.WriteFileEx("d:\1.txt"," <string>255#0#0#0</string>")
- 调用 File.WriteFileEx("d:\1.txt"," </BackColor>")
- 调用 File.WriteFileEx("d:\1.txt"," <BackImagePath />")
- 调用 File.WriteFileEx("d:\1.txt"," <BackImageLayout>Stretch</BackImageLayout>")
- 调用 File.WriteFileEx("d:\1.txt"," <Opacity>1</Opacity>")
- 调用 File.WriteFileEx("d:\1.txt"," <Path>D:\广告\" & typ & "</Path>")
- 调用 File.WriteFileEx("d:\1.txt"," <DispRatioType>OriginalRatio</DispRatioType>")
- 调用 File.WriteFileEx("d:\1.txt"," <IsHasInEffect>true</IsHasInEffect>")
- 调用 File.WriteFileEx("d:\1.txt"," <InEffectType>0</InEffectType>")
- 调用 File.WriteFileEx("d:\1.txt"," <InEffectSpeed>1</InEffectSpeed>")
- 调用 File.WriteFileEx("d:\1.txt"," <IsHasOutEffect>false</IsHasOutEffect>")
- 调用 File.WriteFileEx("d:\1.txt"," <OutEffectType>0</OutEffectType>")
- 调用 File.WriteFileEx("d:\1.txt"," <OutEffectSpeed>5</OutEffectSpeed>")
- 调用 File.WriteFileEx("d:\1.txt"," <MusicPath />")
- 调用 File.WriteFileEx("d:\1.txt"," </PictureMedia>")
- 调用 File.WriteFileEx("d:\1.txt"," </Media>")
- 调用 File.WriteFileEx("d:\1.txt"," <AdditionalInfo />")
- 调用 File.WriteFileEx("d:\1.txt"," </Item>")
- 子程序结束
- 子程序 flash()
- 调用 File.WriteFileEx("d:\1.txt"," <Item Type=""" & "Flash"">")