关于读取文本文件并将中文翻译成拼音

Question

我有一个汉字和拼音对照的文本文件,格式如下:
...
暗AN    
黯AN    
肮ANG   
昂ANG   
盎ANG   
凹AO    
坳AO    
敖AO    
嗷AO    
廒AO    
獒AO    
遨AO    
熬AO    
翱AO    
聱AO    
...
我想利用这个文本文件,能够将汉字翻译成拼音字头形式
比如:"大富翁论坛" 翻译成 "DFWLT"
如何写请指教.

Answer 1

1.比如把你的这个文件载入一个WideString字符串S
2.一个拼音A=Copy(S, Pos('大', S) + 1, 1);

Answer 2

测试通过
procedure TForm1.Button1Click(Sender: TObject);
var
  S: WideString;
  A: WideString;
begin
  S := '暗AN'#13#10'大DA'#13#10;
  A := Copy(S, Pos('大', S) + 1, 1);
  ShowMessage(A);
end;

Answer 3

function GetHzPy(const AHzStr: string): string;constChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),(2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),(2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),(3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000),(9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));vari, j, HzOrd: integer;Hz: string[2];begini := 1;while i <= Length(AHzStr) dobeginif (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) thenbeginHzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160;for j := 0 to 25 dobeginif (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) thenbeginResult := Result + char(byte('A') + j);break;end;end;Inc(i);end else Result := Result + AHzStr[i];Inc(i);end;end;
列:Edit1.Text := GetHzPy('大富翁论坛');这样就可以了

Answer 4

http://www.dullwolf.cn/去下载汉字转换拼音程序,代码公开的,可以转换成任何程序语言,英文操作系统下好使.qù  xià  zǎi  hàn  zì  zhuǎn  huàn  pīn  yīn  chéng  xù , dài  mǎ  gōng  kāi  de  , kě  yǐ  zhuǎn  huàn  chéng  rèn  hé  chéng  xù  yǔ  yán , yīng  wén  cāo  zuò  xì  tǒng  xià  hǎo  shǐ .支持大部分多音字
 zhī  chí  dà  bù  fēn  duō  yīn  zì 很长  长远    长久
hěn  cháng    cháng  yuǎn      cháng  jiǔ 
生长  成长 
shēng zhǎng    chéng  zhǎngzhù  fú  suǒ  yǒu  xiōng di  jiě  mèi  ，  xīn  de  yī  nián  ，  yǒu  gèng  duō  shōu  huò 祝福所有兄弟姐妹，新的一年，有更多收获
cún  zài  wèn  tí  ： -------- hào  hē  jiǔ  。
存在问题：--------好喝酒。
fēn  xī  yuán  yīn  ： -------- jiǔ  hǎo  hē  。
分析原因：--------酒好喝。
zǒng  jié  jīng  yàn  ： -------- hē  jiǔ  hǎo  。
总结经验：--------喝酒好。
zhěng  gǎi  cuò  shī  ： -------- jiǔ  hē  hǎo  。
整改措施：--------酒喝好。
nǔ  lì  fāng  xiàng  ： -------- hē  hǎo  jiǔ  。
努力方向：--------喝好酒。