1.     调用 File.WriteFileEx("d:\1.txt"," <Media>")
  2.     调用 File.WriteFileEx("d:\1.txt"," <FlashMedia>")
  3.     调用 File.WriteFileEx("d:\1.txt"," <Name>" & typ & "</Name>")
  4.     调用 File.WriteFileEx("d:\1.txt"," <PlayDuration>")
  5.     调用 File.WriteFileEx("d:\1.txt"," <string>0#0#0#" & lenth & "#0</string>")
  6.     调用 File.WriteFileEx("d:\1.txt"," </PlayDuration>")
  7.     调用 File.WriteFileEx("d:\1.txt"," <BeginTime>0001-01-01T00:00:00</BeginTime>")
  8.     调用 File.WriteFileEx("d:\1.txt"," <EndTime>0001-01-01T00:00:00</EndTime>")
  9.     调用 File.WriteFileEx("d:\1.txt"," <Times>-1</Times>")
  10.     调用 File.WriteFileEx("d:\1.txt"," <BackColor>")
  11.     调用 File.WriteFileEx("d:\1.txt"," <string>255#0#0#0</string>")
  12.     调用 File.WriteFileEx("d:\1.txt"," </BackColor>")
  13.     调用 File.WriteFileEx("d:\1.txt"," <BackImagePath />")
  14.     调用 File.WriteFileEx("d:\1.txt"," <BackImageLayout>Stretch</BackImageLayout>")
  15.     调用 File.WriteFileEx("d:\1.txt"," <Opacity>1</Opacity>")
  16.     调用 File.WriteFileEx("d:\1.txt"," <Path>D:\广告\" & typ & "</Path>")
  17.     调用 File.WriteFileEx("d:\1.txt"," <DispRatioType>OriginalRatio</DispRatioType>")
  18.     调用 File.WriteFileEx("d:\1.txt"," </FlashMedia>")
  19.     调用 File.WriteFileEx("d:\1.txt"," </Media>")
  20.     调用 File.WriteFileEx("d:\1.txt"," <AdditionalInfo />")
  21.     调用 File.WriteFileEx("d:\1.txt"," </Item>")
  22. 子程序结束
  23. 子程序 video()
  24.     调用 File.WriteFileEx("d:\1.txt"," <Item Type=""" & "Video"">")
  25.     调用 File.WriteFileEx("d:\1.txt"," <Media>")
  26.     调用 File.WriteFileEx("d:\1.txt"," <VideoMedia>")
  27.     调用 File.WriteFileEx("d:\1.txt"," <Name>" & typ & "</Name>")
  28.     调用 File.WriteFileEx("d:\1.txt"," <PlayDuration>")
  29.     调用 File.WriteFileEx("d:\1.txt"," <string>0#0#0#" & lenth & "#0</string>")
  30.     调用 File.WriteFileEx("d:\1.txt"," </PlayDuration>")
  31.     调用 File.WriteFileEx("d:\1.txt"," <BeginTime>0001-01-01T00:00:00</BeginTime>")
  32.     调用 File.WriteFileEx("d:\1.txt"," <EndTime>0001-01-01T00:00:00</EndTime>")
  33.     调用 File.WriteFileEx("d:\1.txt"," <Times>-1</Times>")
  34.     调用 File.WriteFileEx("d:\1.txt"," <BackColor>")
  35.     调用 File.WriteFileEx("d:\1.txt"," <string>255#0#0#0</string>")
  36.     调用 File.WriteFileEx("d:\1.txt"," </BackColor>")
  37.     调用 File.WriteFileEx("d:\1.txt"," <BackImagePath />")
  38.     调用 File.WriteFileEx("d:\1.txt"," <BackImageLayout>Stretch</BackImageLayout>")
  39.     调用 File.WriteFileEx("d:\1.txt"," <Opacity>1</Opacity>")
  40.     调用 File.WriteFileEx("d:\1.txt"," <Path>D:\广告\" & typ & "</Path>")
  41.     调用 File.WriteFileEx("d:\1.txt"," <DispRatioType>OriginalRatio</DispRatioType>")
  42.     调用 File.WriteFileEx("d:\1.txt"," <VolumnPercent>100</VolumnPercent>")
  43.     调用 File.WriteFileEx("d:\1.txt"," </VideoMedia>")
  44.     调用 File.WriteFileEx("d:\1.txt"," </Media>")
  45.     调用 File.WriteFileEx("d:\1.txt"," <AdditionalInfo />")
  46.     调用 File.WriteFileEx("d:\1.txt"," </Item>")
  47. 子程序结束
  48. 子程序 xiaofang()
  49.     调用 File.WriteFileEx("d:\1.txt"," <TimingPointInfo>")
  50.     调用 File.WriteFileEx("d:\1.txt"," <StartTime>")
  51.     调用 File.WriteFileEx("d:\1.txt"," <string>0#" & xftime & "#0#0#0</string>")
  52.     调用 File.WriteFileEx("d:\1.txt"," </StartTime>")
  53.     调用 File.WriteFileEx("d:\1.txt"," <IsSpecificDate>false</IsSpecificDate>")
  54.     调用 File.WriteFileEx("d:\1.txt"," <StartDate>2012-09-20T00:00:00+08:00</StartDate>")
  55.     调用 File.WriteFileEx("d:\1.txt"," <StopDate>2012-09-20T00:00:00+08:00</StopDate>")
  56.     调用 File.WriteFileEx("d:\1.txt"," <WeekDay>")
  57.     调用 File.WriteFileEx("d:\1.txt"," <boolean>true</boolean>")
  58.     调用 File.WriteFileEx("d:\1.txt"," <boolean>true</boolean>")
  59.     调用 File.WriteFileEx("d:\1.txt"," <boolean>true</boolean>")
  60.     调用 File.WriteFileEx("d:\1.txt"," <boolean>true</boolean>")
  61.     调用 File.WriteFileEx("d:\1.txt"," <boolean>true</boolean>")
  62.     调用 File.WriteFileEx("d:\1.txt"," <boolean>true</boolean>")
  63.     调用 File.WriteFileEx("d:\1.txt"," <boolean>true</boolean>")
  64.     调用 File.WriteFileEx("d:\1.txt"," </WeekDay>")
  65.     调用 File.WriteFileEx("d:\1.txt"," </TimingPointInfo>")
  66. 子程序结束