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

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

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

'
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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!