対称物取得について

ツイが分かっているならリストを登録して

global proc string yjp_MirrorString(string $txt)
{
string $txtA[] ={"A","B","C","D"};
string $txtB[] ={"D","C","B","A"};
int $index = stringArrayFind($txt,0,$txtA);
return $txtB[$index];
}

こんな感じでやればルール化されていれば確実。
ルール化されていない対称物を探す方法をなんとかしたい。
ジョイント名とかラベルとかルールなしが理想。