HSPTV!掲示板

こんにちは。
自前で色々と調べたのですが、解決出来ず。。
皆様の知識を御借りしたいです。

現在Excelファイルからデータを読み取り
データを配列に格納した後に、
別のExcelファイルへ書き込むというプログラムを
作成しています。
読み取りも書き込みもその他の機能も
完成しているのですが、一つの問題に長らく悩まされています。

その問題がExcelから文字列データ(漢字)を読み取った際、
ある文字が?に置き換わってしまうというものです。
原因も特定しており、HSPのエディタが文字コードをSJISのみに
しか対応していない事により、常用漢字でない文字データ
(文字コードがunicode)を?に変換してしまっているようなのです。

検索しても、meswのようなHSP上にUnicodeの文字を表示させる
ようなものばかりでして。。
標準命令のcnvstowやcnvwtosなども試してみましたが、
受け取った時点で?に変換してしまうようで。。

自己解決が不可能と判断orz

求めている事は、
１．　Excelよりデータを読み取る際にUnicodeを保持して、
そのまま書き込む方法
２．　Excelよりデータを読み取る際にUnicode⇒SJISへ、
書き込む際にSJIS⇒Unicodeへ変換する方法
です。

宜しくお願い致します。
長文失礼しました。

unicodeはmacなどの他機種では見れなかったりフォント別にたまに違ったりとあまり好かれるものではありません
解決にはなっていないのですが、unicodeは使わないほうがいいと思います

ついでに言うと普通のよく使う漢字はshift_jisに入っています
氏名によくある旧文字は基本unicodeです

@key様、返信ありがとうございます。

ここが問題でして、現在扱っている氏名の
元データで、一文字だけ旧字が存在するのです。
(JIS第四標準に位置するものだそうです)

どうしても使用しなければならない為、
もし解決策等あれば、と。。。

現在のExcelファイルからの読み込み方がよくわかりませんが、一旦xlsファイルを
csvファイルで出力しておいてそれをバイナリとして読み込めば、その問題は回避
できるように思いました。

大量にxlsファイルがあるなら、フリーのコンバータも出回っていますのでそれを
利用されるのが楽でいいかと。（´ω｀）

（´ω｀）様、返信ありがとうございます。

現在のxlsデータの読み取りは、
おにたま様のExcelデータ取得サンプルをほぼそのままの
形で使用しております。

一応張り付けますね。

**********************************

newcom xlApp, "Excel.Application"
xlApp("Visible") = 0; Excelウィンドウは非表示
xlApp("DisplayAlerts") = 0; 警告メッセージを表示させない
xlBooks = xlApp("Workbooks") ; Workbooks コレクション取得
xlBooks->"Open" fname ; 指定ファイルを開く
xlBook = xlBooks("Item",myname) ; book取得
xlSheet = xlBook("Worksheets",sheet_name) ; Sheet取得
Range = xlSheet("Range","A1")
xlCurReg = Range("CurrentRegion")
Rows = xlCurReg("Rows")
Columns = xlCurReg("Columns")

sy = 0+Rows("Count") ; 縦の項目数を取得
sx = 0+Columns("Count") ; 横の項目数を取得

//配列にデータを格納
i = 0 : j = 0
repeat sx:x=cnt
repeat sy:y=cnt
xlCur = Range("Offset",y,x) ; X,Yのセルを取得
data = xlCur("Text") ; 内容テキストを取り出す
if i != 0 : {
	if j == 0 : sdim配列変数 = data
	if j == 1 : sdim配列変数 = data
　　　　　　　(以下同様の処理)

}
i++
loop
i = 0 : j++
loop

**********************************

そうですね・・・csvファイルで出力する手法で
考え直してみます。

一旦解決とします。
もし読み取りの解決案を下さる神様
いらっしゃいましたｒ（
･･･長々と失礼致しました。

@key様、(´ω｀)様
ありがとうございました！