wince自动生成XIP映像文件的一种方法

VB 2020-01-03

在WINCE做MULTIBIN＋XIP方式的启动映像文件时，往往需要分两步走：第一步、生成映像文件；第二步、修改ce.bib然后再romimage一次，以前的做法是手动修改极不方便，后来在网上找到了一些办法并整合到一起就能够做到一步到位。

1、做一个批处理放在BSP的Files/premake目录下供PB调用，文件内容如下：

[cpp] view plain copy
  1. echo.
  2. echo%_TGTPLAT%-preriprocessing...
  3. echo.
  4. if"%IMGMULtixIP%"=="1"cd%_TARGETPLATROOT%/Files/premake
  5. if"%IMGMULtixIP%"=="1"copy%_FLATRELEASEDIR%/ce.bib%_TARGETPLATROOT%/Files/premake
  6. if"%IMGMULtixIP%"=="1"copyce.bibce_orig.bib
  7. if"%IMGMULtixIP%"=="1"oembibhelpermultibin.txtce_orig.bibce.bib
  8. if"%IMGMULtixIP%"=="1"copyce.bib%_FLATRELEASEDIR%
  9. if"%IMGMULtixIP%"=="1"cd%_FLATRELEASEDIR%
  10. if"%IMGMULtixIP%"=="1"romimagece.bib

2、oembibhelper.vbs脚本的内容如下：
[vb] copy
    '
  1. 'copyright(c)MicrosoftCorporation.Allrightsreserved.
  2. '
  3. 'USEOfthissamplesourcecodeissubjecttothetermsoftheMicrosoft
  4. 'licenseagreementunderwhichyoulicensedthissamplesourcecode.If
  5. 'youdidnotacceptthetermsofthelicenseagreement,youarenot
  6. 'authorizedtousethissamplesourcecode.Forthetermsofthelicense,
  7. 'pleaseseethelicenseagreementbetweenyouandMicrosoftor,ifapplicable,
  8. 'seetheLICENSE.RTFonyourinstallmediaortherootofyourtoolsinstallation.
  9. 'THESAMPLESOURCECODEISPROVIDED"ASIS",WITHNowARRANTIES.
  11. 'Modifiedthisbibhelper.vbstomodifythebibtoimplementtheMulti-Bin
  12. 'Forexample:"nk.exe@XIPKERN"ofconfigfilewillmakenk.exepackedintoXIPKERN.bin
  13. PublicFunctionSplitEx(InputText,Delimiter)
  15. 'ThisfunctionsplitsthesentenceinInputTextinto
  16. 'wordsandreturnsastringarrayofthewords.Each
  17. 'elementofthearraycontainsoneword.
  18. 'Thisconstantcontainspunctuationandcharacters
  19. 'thatshouldbefilteredfromtheinputstring.
  20. DimstrReplacedText
  21. DimintIndex
  22. 'Replacetabcharacterswithspacecharacters.
  23. 'Replacetabcharacterswithspacecharacters.
  24. strReplacedText=Trim(Replace(InputText,vbTab,""))
  25. 'Loopuntilallconsecutivespacecharactersare
  26. 'replacedbyasinglespacecharacter.
  27. DoWhileInStr(strReplacedText,"")
  28. strReplacedText=Replace(strReplacedText,"","")
  29. Loop
  30. 'Splitthesentenceintoanarrayofwordsandreturn
  31. 'thearray.Ifadelimiterisspecified,useit.
  32. 'MsgBox"String:"&strReplacedText
  33. IfLen(Delimiter)=0Then
  34. SplitEx=Split(strReplacedText)
  35. Else
  36. SplitEx=Split(strReplacedText,Delimiter)
  37. EndIf
  38. EndFunction
  39. PrivateFunctionLoadConfigFile(Filename)
  40. ConstForReading=1,ForWriting=2,ForAppending=8
  41. DimLCArray()
  42. LoopVal=0
  43. Setfs=CreateObject("Scripting.FileSystemObject")
  44. Seta=fs.OpenTextFile(Filename,ForReading,False)
  45. DoWhileNota.AtEndOfStream
  46. FileLine=a.ReadLine()
  47. ifLeft(FileLine,1)=";"Then
  48. 'Wscript.Echo"Skip;forcomments"'
  49. Else
  50. SubStrings=SplitEx(FileLine,"")
  51. IfUBound(SubStrings)=1Then
  52. ReDimPreserveLCArray(LoopVal)
  53. LCArray(LoopVal)=SubStrings
  54. LoopVal=LoopVal+1
  55. 'Wscript.Echo"Skipblanklines"'
  56. EndIf
  57. a.Close
  58. LoadConfigFile=LCArray
  59. EndFunction
  60. PrivateFunctionCalcRegionString(InString,ConfigArrayElement)
  61. CalcRegionString=InString
  62. ForLoopVal=1ToUBound(ConfigArrayElement)
  63. IfLeft(ConfigArrayElement(LoopVal),1)="@"Then
  64. CalcRegionString=Right(ConfigArrayElement(LoopVal),Len(ConfigArrayElement(LoopVal))-1)
  65. Next
  66. PrivateFunctionFindReplaceStrings(SubStrings,ConfigArray,StringToReplace,ReplaceString)
  67. FindReplaceStrings=False
  68. LoopVal=0
  69. ForLoopVal=0ToUBound(ConfigArray)
  70. IfSubStrings(0)=ConfigArray(LoopVal)(0)Then
  71. IfUBound(SubStrings)=2Then
  72. Typestring=CalcRegionString("",ConfigArray(LoopVal))
  73. StringToReplace=SubStrings(1)
  74. ReplaceString=SubStrings(2)+""+Typestring
  75. FindReplaceStrings=True
  76. IfUBound(SubStrings)=3Then
  77. Typestring=CalcRegionString(SubStrings(3),ConfigArray(LoopVal))
  78. StringToReplace=SubStrings(2)
  79. ReplaceString=Typestring
  80. FindReplaceStrings=True
  81. 'MainFunction
  82. 'ReadProgramArguments
  83. SetArgs=Wscript.Arguments
  84. ifArgs.count<>3then
  85. Wscript.Echo"Error:InvalidNumberofarguments"
  86. Wscript.Echo""
  87. Wscript.Echo"Usage:cscriptbibhelper.vbsconfigfileinbibfileoutbibfile"
  88. Wscript.Quit
  89. Endif

相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选...
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...