PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 10904 | 00/04/04 12:18:31 | RE(1):PB6.5: ｼﾌﾄJISｺｰﾄﾞからJISｺｰﾄﾞへ変換 By あすかちゃんの父 |
| 10883 | 00/03/31 19:45:19 | PB6.5: ｼﾌﾄJISｺｰﾄﾞからJISｺｰﾄﾞへ変換 By toshio |
カテゴリ：スクリプトの記述
日付：2000年04月04日 12:18 発信者：あすかちゃんの父
題名：RE(1):PB6.5: ｼﾌﾄJISｺｰﾄﾞからJISｺｰﾄﾞへ変換
toshioさん、こんにちは。
＞ｼﾌﾄJISｺｰﾄﾞからJISｺｰﾄﾞへ変換するにあたり、ＶＢからＰＢへの移行で下記ｽｸﾘﾌﾟﾄに対してどの様に変換したら良い
の
＞かがわかりません、どなたか教えていただけないでしょうか。
＞ vHex = Hex(Asc(Mid$(psSiftJis, I, 1))) //４バイトのシフトＪＩＳコードに変換
＞ vUpByte = Val(\"&h\" + Mid$(vHex, 1, 2)) //上位２バイトを１バイトに変換
＞問題なのは Hex と 16進を含んだ時のVal に相当するｺﾏﾝﾄﾞです。
PBには該当する関数がありませんので、10進数で演算する必要が
あります。2byteの10進表現のデータから上位1byteを取り出すに
は16で割ればいいので、
vUpByte = (asc(mid(psSiftJis, I, 1)) / 16
でいいでしょう。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS Oracle SQL*Net 2.3
Browser InternetExplorer5.X
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.