1. 令 xftime = "16"
  2. 调用 xiaofang()
  3. 令 xftime = "18"
  4. 调用 xiaofang()
  5. 令 xftime = "21"
  6. 调用 xiaofang()
  7. 注释:调用全部文档结束部分写入文档。
  8. 调用 over()
  9. 启动程序或打开文件 "d:\convertz.exe /o:utf8 d:\1.txt"
  10. 延时 2000 毫秒
  11. 调用 file.CopyFile("d:\1.txt","d:\" & office.readxls(1,1,1) & ".plym")
  12. 调用 Office.CloseXls()
  13. 子程序 pre3()
  14.     调用 File.WriteFileEx("d:\1.txt"," <Playlist Type=""" & "TimingPoint""" & " Name=""" & "插播段""" & " PausedCut=""" & "True""" & " IsPlayByTimes=""" & "True""" & " PlayTimes=""" & "1""" & " PlayDuration=""" & "00:00:00""" & ">")
  15.     调用 File.WriteFileEx("d:\1.txt"," <Context>")
  16.     调用 File.WriteFileEx("d:\1.txt"," <BasicPage>")
  17.     (语句无法识别,可能有错误): Call Plugin.File.WriteFileEx("d:\1.txt", " <Page Name="""&"节目页"""&" PlayType="""&"Order"""&" Duration="""&"00:06:00"""&" PlayTimes="""&"1"""&" BackColor="""&"255#0#0#0"""&" BackgroundImage="""&_
  18.     (语句无法识别,可能有错误): """ "& "ImageLayout="""&"Stretch"""&" BackMusic="""" CustomString="""&""">")
  19.     调用 File.WriteFileEx("d:\1.txt"," <Window Name=""" & "消防整点提示""" & " X=""" & "0""" & " Y=""" & "0""" & " Width=""" & "1280""" & " Height=""" & "672""" & ">")
  20. 子程序结束
  21. 子程序 pre()
  22.     调用 File.WriteFileEx("d:\1.txt","<?xml version=""" & "1.0""" & "?>")
  23.     调用 File.WriteFileEx("d:\1.txt","<PlayProgram X=""" & "1921""" & " Y=""" & "1""" & " Width=""" & "1280""" & " Height=""" & "672" & """>")
  24. 子程序结束
  25. 子程序 pre1()
  26.     调用 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 & """>")
  27.     调用 File.WriteFileEx("d:\1.txt"," <Context>")
  28.     调用 File.WriteFileEx("d:\1.txt"," <BasicPage>")
  29.     (语句无法识别,可能有错误): Call Plugin.File.WriteFileEx("d:\1.txt", " <Page Name="""&begin&"节目页"""&" PlayType="""&"Circle"""&" Duration="""&"00:06:00"""&" PlayTimes="""&"1"""&" BackColor="""&"255#0#0#0"""&" BackgroundImage="""&_
  30.     (语句无法识别,可能有错误): """ "& "ImageLayout="""&"Stretch"""&" BackMusic="""" CustomString="""&""">")
  31.     调用 File.WriteFileEx("d:\1.txt"," <Window Name=""" & begin & "到-" & ending & "结束""" & " X=""" & "0""" & " Y=""" & "0""" & " Width=""" & "1280""" & " Height=""" & "672""" & ">")
  32. 子程序结束
  33. 子程序 pre2()
  34.     调用 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 & """>")
  35.     调用 File.WriteFileEx("d:\1.txt"," <Context>")
  36.     调用 File.WriteFileEx("d:\1.txt"," <BasicPage>")
  37.     (语句无法识别,可能有错误): Call Plugin.File.WriteFileEx("d:\1.txt", " <Page Name="""&begin&"插播"""&" PlayType="""&"Circle"""&" Duration="""&"00:06:00"""&" PlayTimes="""&"1"""&" BackColor="""&"255#0#0#0"""&" BackgroundImage="""&_
  38.     (语句无法识别,可能有错误): """ "& "ImageLayout="""&"Stretch"""&" BackMusic="""" CustomString="""&""">")
  39.     调用 File.WriteFileEx("d:\1.txt"," <Window Name=""" & begin & "到-" & ending & "结束""" & " X=""" & "0""" & " Y=""" & "0""" & " Width=""" & "1280""" & " Height=""" & "672""" & ">")
  40. 子程序结束
  41. 子程序 over()
  42.     调用 File.WriteFileEx("d:\1.txt"," </ArrayOfTimingPointInfo>")
  43.     调用 File.WriteFileEx("d:\1.txt"," </TimingInfo>")
  44.     调用 File.WriteFileEx("d:\1.txt"," </Playlist>")
  45.     调用 File.WriteFileEx("d:\1.txt","</PlayProgram>")
  46. 子程序结束
  47. 子程序 over1
  48.     调用 File.WriteFileEx("d:\1.txt"," </Window>")
  49.     调用 File.WriteFileEx("d:\1.txt"," </Page>")
  50.     调用 File.WriteFileEx("d:\1.txt"," </BasicPage>")
  51.     调用 File.WriteFileEx("d:\1.txt"," <GlobalPage>")
  52.     调用 File.WriteFileEx("d:\1.txt"," <Page />")
  53.     调用 File.WriteFileEx("d:\1.txt"," </GlobalPage>")
  54.     调用 File.WriteFileEx("d:\1.txt"," </Context>")
  55.     调用 File.WriteFileEx("d:\1.txt"," </Playlist>")
  56. 子程序结束
  57. 子程序 over2
  58.     调用 File.WriteFileEx("d:\1.txt"," </Window>")
  59.     调用 File.WriteFileEx("d:\1.txt"," </Page>")
  60.     调用 File.WriteFileEx("d:\1.txt"," </BasicPage>")
  61.     调用 File.WriteFileEx("d:\1.txt"," <GlobalPage>")
  62.     调用 File.WriteFileEx("d:\1.txt"," <Page />")
  63.     调用 File.WriteFileEx("d:\1.txt"," </GlobalPage>")
  64.     调用 File.WriteFileEx("d:\1.txt"," </Context>")
  65.     调用 File.WriteFileEx("d:\1.txt"," <TimingInfo>")
  66.     调用 File.WriteFileEx("d:\1.txt"," <ArrayOfTimingPointInfo>")
  67. 子程序结束
  68. 子程序 pic()
  69.     调用 File.WriteFileEx("d:\1.txt"," <Item Type=""" & "Picture"">")
  70.     调用 File.WriteFileEx("d:\1.txt"," <Media>")
  71.     调用 File.WriteFileEx("d:\1.txt"," <PictureMedia>")
  72.     调用 File.WriteFileEx("d:\1.txt"," <Name>" & typ & "</Name>")
  73.     调用 File.WriteFileEx("d:\1.txt"," <PlayDuration>")
  74.     调用 File.WriteFileEx("d:\1.txt"," <string>0#0#0#" & lenth & "#0</string>")
  75.     调用 File.WriteFileEx("d:\1.txt"," </PlayDuration>")
  76.     调用 File.WriteFileEx("d:\1.txt"," <BeginTime>0001-01-01T00:00:00</BeginTime>")
  77.     调用 File.WriteFileEx("d:\1.txt"," <EndTime>0001-01-01T00:00:00</EndTime>")
  78.     调用 File.WriteFileEx("d:\1.txt"," <Times>-1</Times>")
  79.     调用 File.WriteFileEx("d:\1.txt"," <BackColor>")
  80.     调用 File.WriteFileEx("d:\1.txt"," <string>255#0#0#0</string>")
  81.     调用 File.WriteFileEx("d:\1.txt"," </BackColor>")
  82.     调用 File.WriteFileEx("d:\1.txt"," <BackImagePath />")
  83.     调用 File.WriteFileEx("d:\1.txt"," <BackImageLayout>Stretch</BackImageLayout>")
  84.     调用 File.WriteFileEx("d:\1.txt"," <Opacity>1</Opacity>")
  85.     调用 File.WriteFileEx("d:\1.txt"," <Path>D:\广告\" & typ & "</Path>")
  86.     调用 File.WriteFileEx("d:\1.txt"," <DispRatioType>OriginalRatio</DispRatioType>")
  87.     调用 File.WriteFileEx("d:\1.txt"," <IsHasInEffect>true</IsHasInEffect>")
  88.     调用 File.WriteFileEx("d:\1.txt"," <InEffectType>0</InEffectType>")
  89.     调用 File.WriteFileEx("d:\1.txt"," <InEffectSpeed>1</InEffectSpeed>")
  90.     调用 File.WriteFileEx("d:\1.txt"," <IsHasOutEffect>false</IsHasOutEffect>")
  91.     调用 File.WriteFileEx("d:\1.txt"," <OutEffectType>0</OutEffectType>")
  92.     调用 File.WriteFileEx("d:\1.txt"," <OutEffectSpeed>5</OutEffectSpeed>")
  93.     调用 File.WriteFileEx("d:\1.txt"," <MusicPath />")
  94.     调用 File.WriteFileEx("d:\1.txt"," </PictureMedia>")
  95.     调用 File.WriteFileEx("d:\1.txt"," </Media>")
  96.     调用 File.WriteFileEx("d:\1.txt"," <AdditionalInfo />")
  97.     调用 File.WriteFileEx("d:\1.txt"," </Item>")
  98. 子程序结束
  99. 子程序 flash()
  100.     调用 File.WriteFileEx("d:\1.txt"," <Item Type=""" & "Flash"">")