[求助]会PASCAL的请进.请帮忙改写一个程序[已解决]

老九老毛桃粉丝

高手辛苦了，不懂P语言，只懂点C

void GetStrStr(char* pcImport,char *pcStart,char cEnd,char *pcExport)
{
pcExport[0]=0;
//略..................
}
//s1 s2 略.............
char pcJ[256],pcV2[256],pcD2[256],pcC2[256],pcU2[256],pcV[256],pcD[256],pcC[256],pcU[256];
GetStrStr(s1,"V:",0x20,pcV);
GetStrStr(s1,"D:",0x20,pcD);
GetStrStr(s1,"C:",0x20,pcC);
GetStrStr(s1,"U:",0x20,pcU);
GetStrStr(s2,"PCI\\VEN_",'&',pcV2);
GetStrStr(s2,"DEV_",'=',pcD2);
GetStrStr(s2,"&CC_",'=',pcC2);
pcU2[0]=pcC2[2];pcU2[1]=pcC2[3];pcU2[2]=0;pcC2[2]=0;
GetStrStr(s2,"=\"",'\"',pcJ);
//略...........................

[ 本帖最后由 老九老毛桃粉丝 于 2008-4-12 07:07 AM 编辑 ]