招聘技朮支持人員3名,地址:深圳羅湖黃貝岭, 有效期: 2天 (5月22,5月23日)(130分)

實施一家制衣廠的系統.需要技朮支持人員3名. 程序員及其它不要.
1 計算機或相關專業,1年以上經驗,中專以上學歷.
2 誠實守信,工作熱忱.
3 從事過工廠電腦及網絡系統維護,能安裝及排除一般故障.
4 從事過制衣,FastReport,ERP培訓,廣東話(因為是實施的是港資廠)等經驗者優先考慮.
5 包吃住.吃住條件盡量做到合格.
6 工資1500-3000,看你的能力.試用期滿保証給3險.
7 珠海的軟件公司,技朮支持的是深圳的港資廠,公司希望能同你一起進步.
8 再次申明,不要程序員.因為程序已經基本完成同時工資也不高,暫請不起程序員.
請發簡歷到uranus_l@sina.com.cn 或 vivdnet@yahoo.com.cn
沒有留電話的原因是怕了有些人,但保証信息是正確的.
同時散分.謝.

很久远的代码, 你还可以用其他转换工具.
// GB2312/BIG5 convert unit for Delphi 3
// ver 1.01
// By Tom Lee 1997/9/5
// E-Mail Address : Tomm.bbs@csie.nctu.edu.tw
// It is Freeware !
unit CVCode;
interface
function GBtoBIG5(value: string): string;
function BIG5toGB(value: string): string;
implementation
var
BIG5Order: array[0..14757] of Word;
GBOrder : array[0..8177] of Word;
function GBOffset(value: string): integer;
begin
if length(value) >= 2 then
Result := (Ord(value[1]) - 161) * 94 + (Ord(value[2]) - 161)
else
Result := -1;
end;

function BIG5Offset(value: string): integer;
begin
Result := -1;
if length(value) >= 2 then
begin
if (Ord(value[2]) >= 64) and (Ord(value[2]) <= 126) then
Result := (Ord(value[1]) - 161) * 157 + (Ord(value[2]) - 64);
if (Ord(value[2]) >= 161) and (Ord(value[2]) <= 254) then
Result := (Ord(value[1]) - 161) * 157 + 63 + (Ord(value[2]) - 161);
end
end;

function WordToString(value: Word): string;
begin
Result := Chr(Hi(value)) + Chr(Lo(Value));
end;

function isBIG5(value: string): Boolean;
begin
if (length(value)>=2) then
begin
if (value[1] < #161) then
Result := false
else
if ((value[2] >= #64) and (value[2] <= #126)) or ((value[2] >= #161) and (value[2] <= #254)) then
Result := true
else
Result := false
end
else
Result := false
end;

function isGB(value: string): Boolean;
begin
if (length(value)>=2) then
begin
if (value[1] <= #161) and (value[1] >= #247) then
Result := false
else
if (value[2] <= #161) and (value[2] >= #254) then
Result := false
else
Result := true
end
else
Result := true;
end;

function GBtoBIG5(value: string): string;
var
leng, idx : integer;
tmpStr : string[2];
Offset : integer;
output : string;
begin
output := '';
leng := length(value);
idx := 1;
while idx <= leng do
begin
tmpStr := value[idx]+ value[idx + 1];
if isGB(tmpStr) then
begin
offset:=GBOffset(tmpStr);
if (offset >= 0) and (offset <= 8177) then
begin
output := output + WordToString(GBOrder[offset]);
inc(idx);
end
else
output := output + value[idx] ;
end
else
output := output + value[idx] ;
inc(idx, 1);
end;
Result := output;
end;

function BIG5toGB(value: string): string;
var
leng, idx : integer;
tmpStr : string[2];
output : string;
offset : integer;
begin
output := '';
leng := length(value);
idx := 1;
while idx <= leng do
begin
tmpStr := value[idx]+ value[idx + 1];
if isBIG5(tmpStr) then
begin
offset:=BIG5Offset(tmpStr);
if (offset >= 0) and (offset <= 14757) then
begin
output := output + WordToString(BIG5Order[offset]);
inc(idx);
end
else
output := output + value[idx];
end
else
output := output + value[idx];
inc(idx);
end;
Result := output;
end;

initialization
BIG5Order[0] := $2020;
BIG5Order[1] := $A3AC;
BIG5Order[2] := $A1A2;
BIG5Order[3] := $A1A3;
BIG5Order[4] := $2020;
BIG5Order[5] := $A1A4;
..
..
..
..
BIG5Order[14753] := $2020;
BIG5Order[14754] := $2020;
BIG5Order[14755] := $2020;
BIG5Order[14756] := $2020;
BIG5Order[14757] := $2020;

GBOrder[0] := $2020;
GBOrder[1] := $A142;
GBOrder[2] := $A143;
GBOrder[3] := $A145;
GBOrder[4] := $A1C2;
GBOrder[5] := $A3BE;
..
..
..
GBOrder[8175] := $ECB8;
GBOrder[8176] := $C24D;
GBOrder[8177] := $2020;
GBOrder[8177] := $2020;

end.

好正点的代码。谢谢楼上这位兄弟了。小弟也急要。

多人接受答案了。