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

VB 前端之家
前端之家收集整理的这篇文章主要介绍了wince自动生成XIP映像文件的一种方法，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

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

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

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

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

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积