Leahnaya/PokemonGameEditor
1
0
Fork 0
mirror of https://github.com/Gamer2020/PokemonGameEditor.git synced 2026-05-09 12:51:47 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity
b14d5d6429
PokemonGameEditor/GBAPokemonGameEditor/modTextSapp.vb
Gamer2020 c03c30af02 Item descriptions editable! 
You can now edit the item descriptions.
2016-01-22 03:01:36 -05:00

1095 lines
50 KiB
VB.net
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Option Strict Off
Option Explicit Off
Module modTextSapp
Public Function Asc2Sapp(ByVal asciistring As String) As String
o = ""
Y = ""
Dim m As Boolean
For i = 1 To Len(asciistring)
m = False
If Len(asciistring) - (i - 1) > 3 Then
Select Case Mid(asciistring, i, 4)
Case "[Lv]" : Y = &H34 : m = True
Case "[PK]" : Y = &H53 : m = True
Case "[MN]" : Y = &H54 : m = True
Case "[PO]" : Y = &H55 : m = True
Case "[Ke]" : Y = &H56 : m = True
Case "[BL]" : Y = &H57 : m = True
Case "[OC]" : Y = &H58 : m = True
Case "" & "" & "" & "" : Y = &HFB : m = True
'Case StrDup(1, 10) : Y = &HFB : m = True
'Case StrDup(1, &HD) : Y = &HFB : m = True
'Case StrDup(1, &HA) : Y = &HFB : m = True
End Select
If m = True Then
i = i + 3
Else
If Mid(asciistring, i, 2) = "\h" And IsHex(Mid(asciistring, i + 2, 2)) = True Then
Y = Val("&H" & Mid(asciistring, i + 2, 2))
i = i + 3
m = True
End If
End If
End If
If Len(asciistring) - (i - 1) > 2 And m = False Then
Select Case Mid(asciistring, i, 3)
Case "[K]" : Y = &H59 : m = True
Case "[U]" : Y = &H79 : m = True
Case "[D]" : Y = &H7A : m = True
Case "[L]" : Y = &H7B : m = True
Case "[R]" : Y = &H7C : m = True
Case "[.]" : Y = &HB0 : m = True
Case "[""]" : Y = &HB1 : m = True
Case "[']" : Y = &HB3 : m = True
Case "[m]" : Y = &HB5 : m = True
Case "[f]" : Y = &HB6 : m = True
Case "[p]" : Y = &HB7 : m = True
Case "[x]" : Y = &HB9 : m = True
Case "[>]" : Y = &HEF : m = True
Case "[u]" : Y = &HF7 : m = True
Case "[d]" : Y = &HF8 : m = True
Case "[l]" : Y = &HF9 : m = True
End Select
If m = True Then i = i + 2
End If
If Len(asciistring) - (i - 1) > 1 And m = False Then
Select Case Mid(asciistring, i, 2)
Case "\l" : Y = &HFA : m = True
Case "\p" : Y = &HFB : m = True
Case "\c" : Y = &HFC : m = True
Case "\v" : Y = &HFD : m = True
Case "\n" : Y = &HFE : m = True
Case "\x" : Y = &HFF : m = True
Case "" & "" : Y = &HFE : m = True
'Case StrDup(1, &HD) : Y = &HFE : m = True
'Case StrDup(1, &HA) : Y = &HFE : m = True
End Select
If m = True Then i = i + 1
End If
If m = False Then
Select Case Mid(asciistring, i, 1)
Case " " : Y = &H0 : m = True
Case "À" : Y = &H1 : m = True
Case "Á" : Y = &H2 : m = True
Case "Â" : Y = &H3 : m = True
Case "Ç" : Y = &H4 : m = True
Case "È" : Y = &H5 : m = True
Case "É" : Y = &H6 : m = True
Case "Ê" : Y = &H7 : m = True
Case "Ë" : Y = &H8 : m = True
Case "Ì" : Y = &H9 : m = True
Case "Î" : Y = &HB : m = True
Case "Ï" : Y = &HC : m = True
Case "Ò" : Y = &HD : m = True
Case "Ó" : Y = &HE : m = True
Case "Ô" : Y = &HF : m = True
Case "Œ" : Y = &H10 : m = True
Case "Ù" : Y = &H11 : m = True
Case "Ú" : Y = &H12 : m = True
Case "Û" : Y = &H13 : m = True
Case "ß" : Y = &H15 : m = True
Case "à" : Y = &H16 : m = True
Case "á" : Y = &H17 : m = True
Case "ç" : Y = &H19 : m = True
Case "è" : Y = &H1A : m = True
Case "é" : Y = &H1B : m = True
Case "ê" : Y = &H1C : m = True
Case "ë" : Y = &H1D : m = True
Case "ì" : Y = &H1E : m = True
Case "î" : Y = &H20 : m = True
Case "ï" : Y = &H21 : m = True
Case "ò" : Y = &H22 : m = True
Case "ó" : Y = &H23 : m = True
Case "œ" : Y = &H24 : m = True
Case "ù" : Y = &H25 : m = True
Case "ú" : Y = &H26 : m = True
Case "°" : Y = &H28 : m = True
Case "ª" : Y = &H29 : m = True
Case "+" : Y = &H2C : m = True
Case "&" : Y = &H2D : m = True
Case "=" : Y = &H35 : m = True
Case "¿" : Y = &H51 : m = True
Case "¡" : Y = &H52 : m = True
Case "Í" : Y = &H5A : m = True
Case "%" : Y = &H5B : m = True
Case "(" : Y = &H5C : m = True
Case ")" : Y = &H5D : m = True
Case "â" : Y = &H68 : m = True
Case "í" : Y = &H6F : m = True
Case "0" : Y = &HA1 : m = True
Case "1" : Y = &HA2 : m = True
Case "2" : Y = &HA3 : m = True
Case "3" : Y = &HA4 : m = True
Case "4" : Y = &HA5 : m = True
Case "5" : Y = &HA6 : m = True
Case "6" : Y = &HA7 : m = True
Case "7" : Y = &HA8 : m = True
Case "8" : Y = &HA9 : m = True
Case "9" : Y = &HAA : m = True
Case "!" : Y = &HAB : m = True
Case "?" : Y = &HAC : m = True
Case "." : Y = &HAD : m = True
Case "-" : Y = &HAE : m = True
Case "·" : Y = &HAF : m = True
Case "," : Y = &HB8 : m = True
Case """" : Y = &HB2 : m = True
Case "'" : Y = &HB4 : m = True
Case "/" : Y = &HBA : m = True
Case "A" : Y = &HBB : m = True
Case "B" : Y = &HBC : m = True
Case "C" : Y = &HBD : m = True
Case "D" : Y = &HBE : m = True
Case "E" : Y = &HBF : m = True
Case "F" : Y = &HC0 : m = True
Case "G" : Y = &HC1 : m = True
Case "H" : Y = &HC2 : m = True
Case "I" : Y = &HC3 : m = True
Case "J" : Y = &HC4 : m = True
Case "K" : Y = &HC5 : m = True
Case "L" : Y = &HC6 : m = True
Case "M" : Y = &HC7 : m = True
Case "N" : Y = &HC8 : m = True
Case "O" : Y = &HC9 : m = True
Case "P" : Y = &HCA : m = True
Case "Q" : Y = &HCB : m = True
Case "R" : Y = &HCC : m = True
Case "S" : Y = &HCD : m = True
Case "T" : Y = &HCE : m = True
Case "U" : Y = &HCF : m = True
Case "V" : Y = &HD0 : m = True
Case "W" : Y = &HD1 : m = True
Case "X" : Y = &HD2 : m = True
Case "Y" : Y = &HD3 : m = True
Case "Z" : Y = &HD4 : m = True
Case "a" : Y = &HD5 : m = True
Case "b" : Y = &HD6 : m = True
Case "c" : Y = &HD7 : m = True
Case "d" : Y = &HD8 : m = True
Case "e" : Y = &HD9 : m = True
Case "f" : Y = &HDA : m = True
Case "g" : Y = &HDB : m = True
Case "h" : Y = &HDC : m = True
Case "i" : Y = &HDD : m = True
Case "j" : Y = &HDE : m = True
Case "k" : Y = &HDF : m = True
Case "l" : Y = &HE0 : m = True
Case "m" : Y = &HE1 : m = True
Case "n" : Y = &HE2 : m = True
Case "o" : Y = &HE3 : m = True
Case "p" : Y = &HE4 : m = True
Case "q" : Y = &HE5 : m = True
Case "r" : Y = &HE6 : m = True
Case "s" : Y = &HE7 : m = True
Case "t" : Y = &HE8 : m = True
Case "u" : Y = &HE9 : m = True
Case "v" : Y = &HEA : m = True
Case "w" : Y = &HEB : m = True
Case "x" : Y = &HEC : m = True
Case "y" : Y = &HED : m = True
Case "z" : Y = &HEE : m = True
Case ":" : Y = &HF0 : m = True
Case "Ä" : Y = &HF1 : m = True
Case "Ö" : Y = &HF2 : m = True
Case "Ü" : Y = &HF3 : m = True
Case "ä" : Y = &HF4 : m = True
Case "ö" : Y = &HF5 : m = True
Case "ü" : Y = &HF6 : m = True
'This whole thing auto-converted from TBL file
Case "あ" : Y = &H1 '"a"
Case "い" : Y = &H2 '"i"
Case "う" : Y = &H3 '"u"
Case "え" : Y = &H4 '"e"
Case "お" : Y = &H5 '"o"
Case "か" : Y = &H6 '"ka"
Case "き" : Y = &H7 '"ki"
Case "く" : Y = &H8 '"ku"
Case "け" : Y = &H9 '"ke"
Case "こ" : Y = &HA '"ko"
Case "さ" : Y = &HB '"sa"
Case "し" : Y = &HC '"shi"
Case "す" : Y = &HD '"su"
Case "せ" : Y = &HE '"se"
Case "そ" : Y = &HF '"so"
Case "た" : Y = &H10 '"ta"
Case "ち" : Y = &H11 '"chi"
Case "つ" : Y = &H12 '"tsu"
Case "て" : Y = &H13 '"te"
Case "と" : Y = &H14 '"to"
Case "な" : Y = &H15 '"na"
Case "に" : Y = &H16 '"ni"
Case "ぬ" : Y = &H17 '"nu"
Case "ね" : Y = &H18 '"ne"
Case "の" : Y = &H19 '"no"
Case "は" : Y = &H1A '"ha"
Case "ひ" : Y = &H1B '"hi"
Case "ふ" : Y = &H1C '"fu"
Case "へ" : Y = &H1D '"he"
Case "ほ" : Y = &H1E '"ho"
Case "ま" : Y = &H1F '"ma"
Case "み" : Y = &H20 '"mi"
Case "む" : Y = &H21 '"mu"
Case "め" : Y = &H22 '"me"
Case "も" : Y = &H23 '"mo"
Case "や" : Y = &H24 '"ya"
Case "ゆ" : Y = &H25 '"yu"
Case "よ" : Y = &H26 '"yo"
Case "ら" : Y = &H27 '"ra"
Case "り" : Y = &H28 '"ri"
Case "る" : Y = &H29 '"ru"
Case "れ" : Y = &H2A '"re"
Case "ろ" : Y = &H2B '"ro"
Case "わ" : Y = &H2C '"wa"
Case "を" : Y = &H2D '"wo"
Case "ん" : Y = &H2E '"n"
Case "ぁ" : Y = &H2F '"la"
Case "ぃ" : Y = &H30 '"li"
Case "ぅ" : Y = &H31 '"lu"
Case "ぇ" : Y = &H32 '"le"
Case "ぉ" : Y = &H33 '"lo"
Case "ゃ" : Y = &H34 '"lya"
Case "ゅ" : Y = &H35 '"lyu"
Case "ょ" : Y = &H36 '"lyo"
Case "が" : Y = &H37 '"ga"
Case "ぎ" : Y = &H38 '"gi"
Case "ぐ" : Y = &H39 '"gu"
Case "げ" : Y = &H3A '"ge"
Case "ご" : Y = &H3B '"go"
Case "ざ" : Y = &H3C '"za"
Case "じ" : Y = &H3D '"ji"
Case "ず" : Y = &H3E '"zu"
Case "ぜ" : Y = &H3F '"ze"
Case "ぞ" : Y = &H40 '"zo"
Case "だ" : Y = &H41 '"da"
Case "ぢ" : Y = &H42 '"dji"
Case "づ" : Y = &H43 '"dzu"
Case "で" : Y = &H44 '"de"
Case "ど" : Y = &H45 '"do"
Case "ば" : Y = &H46 '"ba"
Case "び" : Y = &H47 '"bi"
Case "ぶ" : Y = &H48 '"bu"
Case "べ" : Y = &H49 '"be"
Case "ぼ" : Y = &H4A '"bo"
Case "ぱ" : Y = &H4B '"pa"
Case "ぴ" : Y = &H4C '"pi"
Case "ぷ" : Y = &H4D '"pu"
Case "ぺ" : Y = &H4E '"pe"
Case "ぽ" : Y = &H4F '"po"
Case "っ" : Y = &H50 '"ltsu"
Case "ア" : Y = &H51 '"A"
Case "イ" : Y = &H52 '"I"
Case "ウ" : Y = &H53 '"U"
Case "エ" : Y = &H54 '"E"
Case "オ" : Y = &H55 '"O"
Case "カ" : Y = &H56 '"KA"
Case "キ" : Y = &H57 '"KI"
Case "ク" : Y = &H58 '"KU"
Case "ケ" : Y = &H59 '"KE"
Case "コ" : Y = &H5A '"KO"
Case "サ" : Y = &H5B '"SA"
Case "シ" : Y = &H5C '"SHI"
Case "ス" : Y = &H5D '"SU"
Case "セ" : Y = &H5E '"SE"
Case "ソ" : Y = &H5F '"SO"
Case "タ" : Y = &H60 '"TA"
Case "チ" : Y = &H61 '"CHI"
Case "ツ" : Y = &H62 '"TSU"
Case "テ" : Y = &H63 '"TE"
Case "ト" : Y = &H64 '"TO"
Case "ナ" : Y = &H65 '"NA"
Case "ニ" : Y = &H66 '"NI"
Case "ヌ" : Y = &H67 '"NU"
Case "ネ" : Y = &H68 '"NE"
Case "ノ" : Y = &H69 '"NO"
Case "ハ" : Y = &H6A '"HA"
Case "ヒ" : Y = &H6B '"HI"
Case "フ" : Y = &H6C '"FU"
Case "ヘ" : Y = &H6D '"HE"
Case "ホ" : Y = &H6E '"HO"
Case "マ" : Y = &H6F '"MA"
Case "ミ" : Y = &H70 '"MI"
Case "ム" : Y = &H71 '"MU"
Case "メ" : Y = &H72 '"ME"
Case "モ" : Y = &H73 '"MO"
Case "ヤ" : Y = &H74 '"YA"
Case "ユ" : Y = &H75 '"YU"
Case "ヨ" : Y = &H76 '"YO"
Case "ラ" : Y = &H77 '"RA"
Case "リ" : Y = &H78 '"RI"
Case "ル" : Y = &H79 '"RU"
Case "レ" : Y = &H7A '"RE"
Case "ロ" : Y = &H7B '"RO"
Case "ワ" : Y = &H7C '"WA"
Case "ヲ" : Y = &H7D '"WO"
Case "ン" : Y = &H7E '"N"
Case "ァ" : Y = &H7F '"LA"
Case "ィ" : Y = &H80 '"LI"
Case "ゥ" : Y = &H81 '"LU"
Case "ェ" : Y = &H82 '"LE"
Case "ォ" : Y = &H83 '"LO"
Case "ャ" : Y = &H84 '"LYA"
Case "ュ" : Y = &H85 '"LYU"
Case "ョ" : Y = &H86 '"LYO"
Case "ガ" : Y = &H87 '"GA"
Case "ギ" : Y = &H88 '"GI"
Case "グ" : Y = &H89 '"GU"
Case "ゲ" : Y = &H8A '"GE"
Case "ゴ" : Y = &H8B '"GO"
Case "ザ" : Y = &H8C '"ZA"
Case "ジ" : Y = &H8D '"JI"
Case "ズ" : Y = &H8E '"ZU"
Case "ゼ" : Y = &H8F '"ZE"
Case "ゾ" : Y = &H90 '"ZO"
Case "ダ" : Y = &H91 '"DA"
Case "ヂ" : Y = &H92 '"DJI"
Case "ヅ" : Y = &H93 '"DZU"
Case "デ" : Y = &H94 '"DE"
Case "ド" : Y = &H95 '"DO"
Case "バ" : Y = &H96 '"BA"
Case "ビ" : Y = &H97 '"BI"
Case "ブ" : Y = &H98 '"BU"
Case "ベ" : Y = &H99 '"BE"
Case "ボ" : Y = &H9A '"BO"
Case "パ" : Y = &H9B '"PA"
Case "ピ" : Y = &H9C '"PI"
Case "プ" : Y = &H9D '"PU"
Case "ペ" : Y = &H9E '"PE"
Case "ポ" : Y = &H9F '"PO"
Case "ッ" : Y = &HA0 '"LTSU"
End Select
End If
If m = False Then Y = &H0
o = o & Chr(Y)
Next i
Asc2Sapp = o
End Function
Public Function Sapp2Asc(ByVal sappstring As String, Optional ByVal japanese As Boolean = False) As String
Dim Y As String
Dim n As Boolean
o = ""
For i = 1 To Len(sappstring)
X = IIf(Mid(sappstring, i, 1) = "", 0, Asc(Mid(sappstring, i, 1)))
If n = True Then
Y = "\h" & IIf(Len(Hex(X)) < 2, "0" & Hex(X), Hex(X))
n = False
Else
If japanese Then
Select Case X
'This whole thing auto-converted from TBL file
Case &H0 : Y = " "
Case &H1 : Y = "あ" '"a"
Case &H2 : Y = "い" '"i"
Case &H3 : Y = "う" '"u"
Case &H4 : Y = "え" '"e"
Case &H5 : Y = "お" '"o"
Case &H6 : Y = "か" '"ka"
Case &H7 : Y = "き" '"ki"
Case &H8 : Y = "く" '"ku"
Case &H9 : Y = "け" '"ke"
Case &HA : Y = "こ" '"ko"
Case &HB : Y = "さ" '"sa"
Case &HC : Y = "し" '"shi"
Case &HD : Y = "す" '"su"
Case &HE : Y = "せ" '"se"
Case &HF : Y = "そ" '"so"
Case &H10 : Y = "た" '"ta"
Case &H11 : Y = "ち" '"chi"
Case &H12 : Y = "つ" '"tsu"
Case &H13 : Y = "て" '"te"
Case &H14 : Y = "と" '"to"
Case &H15 : Y = "な" '"na"
Case &H16 : Y = "に" '"ni"
Case &H17 : Y = "ぬ" '"nu"
Case &H18 : Y = "ね" '"ne"
Case &H19 : Y = "の" '"no"
Case &H1A : Y = "は" '"ha"
Case &H1B : Y = "ひ" '"hi"
Case &H1C : Y = "ふ" '"fu"
Case &H1D : Y = "へ" '"he"
Case &H1E : Y = "ほ" '"ho"
Case &H1F : Y = "ま" '"ma"
Case &H20 : Y = "み" '"mi"
Case &H21 : Y = "む" '"mu"
Case &H22 : Y = "め" '"me"
Case &H23 : Y = "も" '"mo"
Case &H24 : Y = "や" '"ya"
Case &H25 : Y = "ゆ" '"yu"
Case &H26 : Y = "よ" '"yo"
Case &H27 : Y = "ら" '"ra"
Case &H28 : Y = "り" '"ri"
Case &H29 : Y = "る" '"ru"
Case &H2A : Y = "れ" '"re"
Case &H2B : Y = "ろ" '"ro"
Case &H2C : Y = "わ" '"wa"
Case &H2D : Y = "を" '"wo"
Case &H2E : Y = "ん" '"n"
Case &H2F : Y = "ぁ" '"la"
Case &H30 : Y = "ぃ" '"li"
Case &H31 : Y = "ぅ" '"lu"
Case &H32 : Y = "ぇ" '"le"
Case &H33 : Y = "ぉ" '"lo"
Case &H34 : Y = "ゃ" '"lya"
Case &H35 : Y = "ゅ" '"lyu"
Case &H36 : Y = "ょ" '"lyo"
Case &H37 : Y = "が" '"ga"
Case &H38 : Y = "ぎ" '"gi"
Case &H39 : Y = "ぐ" '"gu"
Case &H3A : Y = "げ" '"ge"
Case &H3B : Y = "ご" '"go"
Case &H3C : Y = "ざ" '"za"
Case &H3D : Y = "じ" '"ji"
Case &H3E : Y = "ず" '"zu"
Case &H3F : Y = "ぜ" '"ze"
Case &H40 : Y = "ぞ" '"zo"
Case &H41 : Y = "だ" '"da"
Case &H42 : Y = "ぢ" '"dji"
Case &H43 : Y = "づ" '"dzu"
Case &H44 : Y = "で" '"de"
Case &H45 : Y = "ど" '"do"
Case &H46 : Y = "ば" '"ba"
Case &H47 : Y = "び" '"bi"
Case &H48 : Y = "ぶ" '"bu"
Case &H49 : Y = "べ" '"be"
Case &H4A : Y = "ぼ" '"bo"
Case &H4B : Y = "ぱ" '"pa"
Case &H4C : Y = "ぴ" '"pi"
Case &H4D : Y = "ぷ" '"pu"
Case &H4E : Y = "ぺ" '"pe"
Case &H4F : Y = "ぽ" '"po"
Case &H50 : Y = "っ" '"ltsu"
Case &H51 : Y = "ア" '"A"
Case &H52 : Y = "イ" '"I"
Case &H53 : Y = "ウ" '"U"
Case &H54 : Y = "エ" '"E"
Case &H55 : Y = "オ" '"O"
Case &H56 : Y = "カ" '"KA"
Case &H57 : Y = "キ" '"KI"
Case &H58 : Y = "ク" '"KU"
Case &H59 : Y = "ケ" '"KE"
Case &H5A : Y = "コ" '"KO"
Case &H5B : Y = "サ" '"SA"
Case &H5C : Y = "シ" '"SHI"
Case &H5D : Y = "ス" '"SU"
Case &H5E : Y = "セ" '"SE"
Case &H5F : Y = "ソ" '"SO"
Case &H60 : Y = "タ" '"TA"
Case &H61 : Y = "チ" '"CHI"
Case &H62 : Y = "ツ" '"TSU"
Case &H63 : Y = "テ" '"TE"
Case &H64 : Y = "ト" '"TO"
Case &H65 : Y = "ナ" '"NA"
Case &H66 : Y = "ニ" '"NI"
Case &H67 : Y = "ヌ" '"NU"
Case &H68 : Y = "ネ" '"NE"
Case &H69 : Y = "ノ" '"NO"
Case &H6A : Y = "ハ" '"HA"
Case &H6B : Y = "ヒ" '"HI"
Case &H6C : Y = "フ" '"FU"
Case &H6D : Y = "ヘ" '"HE"
Case &H6E : Y = "ホ" '"HO"
Case &H6F : Y = "マ" '"MA"
Case &H70 : Y = "ミ" '"MI"
Case &H71 : Y = "ム" '"MU"
Case &H72 : Y = "メ" '"ME"
Case &H73 : Y = "モ" '"MO"
Case &H74 : Y = "ヤ" '"YA"
Case &H75 : Y = "ユ" '"YU"
Case &H76 : Y = "ヨ" '"YO"
Case &H77 : Y = "ラ" '"RA"
Case &H78 : Y = "リ" '"RI"
Case &H79 : Y = "ル" '"RU"
Case &H7A : Y = "レ" '"RE"
Case &H7B : Y = "ロ" '"RO"
Case &H7C : Y = "ワ" '"WA"
Case &H7D : Y = "ヲ" '"WO"
Case &H7E : Y = "ン" '"N"
Case &H7F : Y = "ァ" '"LA"
Case &H80 : Y = "ィ" '"LI"
Case &H81 : Y = "ゥ" '"LU"
Case &H82 : Y = "ェ" '"LE"
Case &H83 : Y = "ォ" '"LO"
Case &H84 : Y = "ャ" '"LYA"
Case &H85 : Y = "ュ" '"LYU"
Case &H86 : Y = "ョ" '"LYO"
Case &H87 : Y = "ガ" '"GA"
Case &H88 : Y = "ギ" '"GI"
Case &H89 : Y = "グ" '"GU"
Case &H8A : Y = "ゲ" '"GE"
Case &H8B : Y = "ゴ" '"GO"
Case &H8C : Y = "ザ" '"ZA"
Case &H8D : Y = "ジ" '"JI"
Case &H8E : Y = "ズ" '"ZU"
Case &H8F : Y = "ゼ" '"ZE"
Case &H90 : Y = "ゾ" '"ZO"
Case &H91 : Y = "ダ" '"DA"
Case &H92 : Y = "ヂ" '"DJI"
Case &H93 : Y = "ヅ" '"DZU"
Case &H94 : Y = "デ" '"DE"
Case &H95 : Y = "ド" '"DO"
Case &H96 : Y = "バ" '"BA"
Case &H97 : Y = "ビ" '"BI"
Case &H98 : Y = "ブ" '"BU"
Case &H99 : Y = "ベ" '"BE"
Case &H9A : Y = "ボ" '"BO"
Case &H9B : Y = "パ" '"PA"
Case &H9C : Y = "ピ" '"PI"
Case &H9D : Y = "プ" '"PU"
Case &H9E : Y = "ペ" '"PE"
Case &H9F : Y = "ポ" '"PO"
Case &HA0 : Y = "ッ" '"LTSU"
Case &HA1 : Y = "0"
Case &HA2 : Y = "1"
Case &HA3 : Y = "2"
Case &HA4 : Y = "3"
Case &HA5 : Y = "4"
Case &HA6 : Y = "5"
Case &HA7 : Y = "6"
Case &HA8 : Y = "7"
Case &HA9 : Y = "8"
Case &HAA : Y = "9"
Case &HAB : Y = "!"
Case &HAC : Y = "?"
Case &HAD : Y = "."
Case &HAE : Y = "ー"
Case &HAF : Y = "ｷ"
Case &HFA : Y = "\l"
Case &HFB : Y = "\p"
Case &HFC : Y = "\c" : n = True
Case &HFD : Y = "\v" : n = True
Case &HFE : Y = "\n"
Case &HFF : Y = "\x"
Case &H7C : Y = " "
Case &H80 : Y = ""
Case Else : Y = "\h" & IIf(Len(Hex(X)) < 2, "0" & Hex(X), Hex(X))
End Select
Else
Select Case X
Case &H0 : Y = " "
Case &H1 : Y = "À"
Case &H2 : Y = "Á"
Case &H3 : Y = "Â"
Case &H4 : Y = "Ç"
Case &H5 : Y = "È"
Case &H6 : Y = "É"
Case &H7 : Y = "Ê"
Case &H8 : Y = "Ë"
Case &H9 : Y = "Ì"
Case &HB : Y = "Î"
Case &HC : Y = "Ï"
Case &HD : Y = "Ò"
Case &HE : Y = "Ó"
Case &HF : Y = "Ô"
Case &H10 : Y = "Œ"
Case &H11 : Y = "Ù"
Case &H12 : Y = "Ú"
Case &H13 : Y = "Û"
Case &H15 : Y = "ß"
Case &H16 : Y = "à"
Case &H17 : Y = "á"
Case &H19 : Y = "ç"
Case &H1A : Y = "è"
Case &H1B : Y = "é"
Case &H1C : Y = "ê"
Case &H1D : Y = "ë"
Case &H1E : Y = "ì"
Case &H20 : Y = "î"
Case &H21 : Y = "ï"
Case &H22 : Y = "ò"
Case &H23 : Y = "ó"
Case &H24 : Y = "œ"
Case &H25 : Y = "ù"
Case &H26 : Y = "ú"
Case &H28 : Y = "°"
Case &H29 : Y = "ª"
Case &H2B : Y = "&"
Case &H2C : Y = "+"
Case &H2D : Y = "&"
Case &H34 : Y = "[Lv]"
Case &H35 : Y = "="
Case &H51 : Y = "¿"
Case &H52 : Y = "¡"
Case &H53 : Y = "[PK]"
Case &H54 : Y = "[MN]"
Case &H55 : Y = "[PO]"
Case &H56 : Y = "[Ke]"
Case &H57 : Y = "[BL]"
Case &H58 : Y = "[OC]"
Case &H59 : Y = "[K]"
Case &H5A : Y = "Í"
Case &H5B : Y = "%"
Case &H5C : Y = "("
Case &H5D : Y = ")"
Case &H68 : Y = "â"
Case &H6F : Y = "í"
Case &H79 : Y = "[U]"
Case &H7A : Y = "[D]"
Case &H7B : Y = "[L]"
Case &H7C : Y = "[R]"
Case &HA1 : Y = "0"
Case &HA2 : Y = "1"
Case &HA3 : Y = "2"
Case &HA4 : Y = "3"
Case &HA5 : Y = "4"
Case &HA6 : Y = "5"
Case &HA7 : Y = "6"
Case &HA8 : Y = "7"
Case &HA9 : Y = "8"
Case &HAA : Y = "9"
Case &HAB : Y = "!"
Case &HAC : Y = "?"
Case &HAD : Y = "."
Case &HAE : Y = "-"
Case &HAF : Y = "·"
Case &HB0 : Y = "[.]"
Case &HB1 : Y = "[""]"
Case &HB2 : Y = """"
Case &HB3 : Y = "[']"
Case &HB4 : Y = "'"
Case &HB5 : Y = "♂"
Case &HB6 : Y = "♀"
Case &HB7 : Y = "[p]"
Case &HB8 : Y = ","
Case &HB9 : Y = "[x]"
Case &HBA : Y = "/"
Case &HBB : Y = "A"
Case &HBC : Y = "B"
Case &HBD : Y = "C"
Case &HBE : Y = "D"
Case &HBF : Y = "E"
Case &HC0 : Y = "F"
Case &HC1 : Y = "G"
Case &HC2 : Y = "H"
Case &HC3 : Y = "I"
Case &HC4 : Y = "J"
Case &HC5 : Y = "K"
Case &HC6 : Y = "L"
Case &HC7 : Y = "M"
Case &HC8 : Y = "N"
Case &HC9 : Y = "O"
Case &HCA : Y = "P"
Case &HCB : Y = "Q"
Case &HCC : Y = "R"
Case &HCD : Y = "S"
Case &HCE : Y = "T"
Case &HCF : Y = "U"
Case &HD0 : Y = "V"
Case &HD1 : Y = "W"
Case &HD2 : Y = "X"
Case &HD3 : Y = "Y"
Case &HD4 : Y = "Z"
Case &HD5 : Y = "a"
Case &HD6 : Y = "b"
Case &HD7 : Y = "c"
Case &HD8 : Y = "d"
Case &HD9 : Y = "e"
Case &HDA : Y = "f"
Case &HDB : Y = "g"
Case &HDC : Y = "h"
Case &HDD : Y = "i"
Case &HDE : Y = "j"
Case &HDF : Y = "k"
Case &HE0 : Y = "l"
Case &HE1 : Y = "m"
Case &HE2 : Y = "n"
Case &HE3 : Y = "o"
Case &HE4 : Y = "p"
Case &HE5 : Y = "q"
Case &HE6 : Y = "r"
Case &HE7 : Y = "s"
Case &HE8 : Y = "t"
Case &HE9 : Y = "u"
Case &HEA : Y = "v"
Case &HEB : Y = "w"
Case &HEC : Y = "x"
Case &HED : Y = "y"
Case &HEE : Y = "z"
Case &HEF : Y = "[>]"
Case &HF0 : Y = ":"
Case &HF1 : Y = "Ä"
Case &HF2 : Y = "Ö"
Case &HF3 : Y = "Ü"
Case &HF4 : Y = "ä"
Case &HF5 : Y = "ö"
Case &HF6 : Y = "ü"
Case &HF7 : Y = "[u]"
Case &HF8 : Y = "[d]"
Case &HF9 : Y = "[l]"
Case &HFA : Y = "\l"
Case &HFB : Y = "\p"
Case &HFC : Y = "" 'n = True
Case &HFD : Y = "\v" 'n = True
Case &HFE : Y = "\n"
Case &HFF : Y = "\x"
Case Else : Y = "\h" & IIf(Len(Hex(X)) < 2, "0" & Hex(X), Hex(X))
End Select
End If
End If
o = o & Y
Next i
Sapp2Asc = o
End Function
'Public Function Sapp2AscTabled(ByVal sappstring As String, Optional japanese As Boolean) As String
' Dim mytable(256) As String
' Dim i As String
' Dim a As Integer, b As Integer, c As Integer
' Dim ff As Integer
' ff = FreeFile
' Open "obsidian.tbl" For Input As ff
' While Not EOF(ff)
' Line Input #ff, i
' c = Val("&H" & Left(i, 2))
' mytable(c) = Mid(i, 4)
' Wend
' Close #ff
' i = ""
' For a = 1 To Len(sappstring)
' c = Asc(Mid(sappstring, a, 1))
' If mytable(c) = "" Then
' i = i & "\h" & Right(" " & Hex(c), 2)
' Else
' i = i & mytable(c)
' End If
' Next a
' Sapp2Asc = i
'End Function
Private Function IsHex(ByVal hexstring As String) As Boolean
Dim z As Boolean
Dim Y As Byte
Dim privi As Integer
For privi = 1 To Len(hexstring)
Y = Asc(Mid(hexstring, privi, 1))
z = IIf((Y > 47 And Y < 58) Or (Y > 64 And Y < 71) Or (Y > 96 And Y < 103), True, False)
If z = False Then Exit For
Next privi
IsHex = z
End Function
Private Function Hex2(ByVal indec As Long, Optional ByVal digits As Byte = 2) As String
X = Hex(indec)
Do While Len(X) < digits
X = "0" & X
Loop
Hex2 = X
End Function
Public Function NameAsc2Sapp(ByVal asciistring As String) As String
o = ""
Y = ""
Dim m As Boolean
For i = 1 To Len(asciistring)
m = False
If m = False Then
Select Case Mid(asciistring, i, 1)
Case " " : Y = &H0 : m = True
Case "À" : Y = &H1 : m = True
Case "Á" : Y = &H2 : m = True
Case "Â" : Y = &H3 : m = True
Case "Ç" : Y = &H4 : m = True
Case "È" : Y = &H5 : m = True
Case "É" : Y = &H6 : m = True
Case "Ê" : Y = &H7 : m = True
Case "Ë" : Y = &H8 : m = True
Case "Ì" : Y = &H9 : m = True
Case "Î" : Y = &HB : m = True
Case "Ï" : Y = &HC : m = True
Case "Ò" : Y = &HD : m = True
Case "Ó" : Y = &HE : m = True
Case "Ô" : Y = &HF : m = True
Case "Œ" : Y = &H10 : m = True
Case "Ù" : Y = &H11 : m = True
Case "Ú" : Y = &H12 : m = True
Case "Û" : Y = &H13 : m = True
Case "ß" : Y = &H15 : m = True
Case "à" : Y = &H16 : m = True
Case "á" : Y = &H17 : m = True
Case "ç" : Y = &H19 : m = True
Case "è" : Y = &H1A : m = True
Case "é" : Y = &H1B : m = True
Case "ê" : Y = &H1C : m = True
Case "ë" : Y = &H1D : m = True
Case "ì" : Y = &H1E : m = True
Case "î" : Y = &H20 : m = True
Case "ï" : Y = &H21 : m = True
Case "ò" : Y = &H22 : m = True
Case "ó" : Y = &H23 : m = True
Case "œ" : Y = &H24 : m = True
Case "ù" : Y = &H25 : m = True
Case "ú" : Y = &H26 : m = True
Case "°" : Y = &H28 : m = True
Case "ª" : Y = &H29 : m = True
Case "+" : Y = &H2C : m = True
Case "&" : Y = &H2D : m = True
Case "=" : Y = &H35 : m = True
Case "¿" : Y = &H51 : m = True
Case "¡" : Y = &H52 : m = True
Case "Í" : Y = &H5A : m = True
Case "%" : Y = &H5B : m = True
Case "(" : Y = &H5C : m = True
Case ")" : Y = &H5D : m = True
Case "â" : Y = &H68 : m = True
Case "í" : Y = &H6F : m = True
Case "0" : Y = &HA1 : m = True
Case "1" : Y = &HA2 : m = True
Case "2" : Y = &HA3 : m = True
Case "3" : Y = &HA4 : m = True
Case "4" : Y = &HA5 : m = True
Case "5" : Y = &HA6 : m = True
Case "6" : Y = &HA7 : m = True
Case "7" : Y = &HA8 : m = True
Case "8" : Y = &HA9 : m = True
Case "9" : Y = &HAA : m = True
Case "!" : Y = &HAB : m = True
Case "?" : Y = &HAC : m = True
Case "." : Y = &HAD : m = True
Case "-" : Y = &HAE : m = True
Case "·" : Y = &HAF : m = True
Case "," : Y = &HB8 : m = True
Case """" : Y = &HB2 : m = True
Case "'" : Y = &HB4 : m = True
Case "/" : Y = &HBA : m = True
Case "A" : Y = &HBB : m = True
Case "B" : Y = &HBC : m = True
Case "C" : Y = &HBD : m = True
Case "D" : Y = &HBE : m = True
Case "E" : Y = &HBF : m = True
Case "F" : Y = &HC0 : m = True
Case "G" : Y = &HC1 : m = True
Case "H" : Y = &HC2 : m = True
Case "I" : Y = &HC3 : m = True
Case "J" : Y = &HC4 : m = True
Case "K" : Y = &HC5 : m = True
Case "L" : Y = &HC6 : m = True
Case "M" : Y = &HC7 : m = True
Case "N" : Y = &HC8 : m = True
Case "O" : Y = &HC9 : m = True
Case "P" : Y = &HCA : m = True
Case "Q" : Y = &HCB : m = True
Case "R" : Y = &HCC : m = True
Case "S" : Y = &HCD : m = True
Case "T" : Y = &HCE : m = True
Case "U" : Y = &HCF : m = True
Case "V" : Y = &HD0 : m = True
Case "W" : Y = &HD1 : m = True
Case "X" : Y = &HD2 : m = True
Case "Y" : Y = &HD3 : m = True
Case "Z" : Y = &HD4 : m = True
Case "a" : Y = &HD5 : m = True
Case "b" : Y = &HD6 : m = True
Case "c" : Y = &HD7 : m = True
Case "d" : Y = &HD8 : m = True
Case "e" : Y = &HD9 : m = True
Case "f" : Y = &HDA : m = True
Case "g" : Y = &HDB : m = True
Case "h" : Y = &HDC : m = True
Case "i" : Y = &HDD : m = True
Case "j" : Y = &HDE : m = True
Case "k" : Y = &HDF : m = True
Case "l" : Y = &HE0 : m = True
Case "m" : Y = &HE1 : m = True
Case "n" : Y = &HE2 : m = True
Case "o" : Y = &HE3 : m = True
Case "p" : Y = &HE4 : m = True
Case "q" : Y = &HE5 : m = True
Case "r" : Y = &HE6 : m = True
Case "s" : Y = &HE7 : m = True
Case "t" : Y = &HE8 : m = True
Case "u" : Y = &HE9 : m = True
Case "v" : Y = &HEA : m = True
Case "w" : Y = &HEB : m = True
Case "x" : Y = &HEC : m = True
Case "y" : Y = &HED : m = True
Case "z" : Y = &HEE : m = True
Case ":" : Y = &HF0 : m = True
Case "Ä" : Y = &HF1 : m = True
Case "Ö" : Y = &HF2 : m = True
Case "Ü" : Y = &HF3 : m = True
Case "ä" : Y = &HF4 : m = True
Case "ö" : Y = &HF5 : m = True
Case "ü" : Y = &HF6 : m = True
Case "♂" : Y = &HB5 : m = True
Case "♀" : Y = &HB6 : m = True
'This whole thing auto-converted from TBL file
Case "あ" : Y = &H1 '"a"
Case "い" : Y = &H2 '"i"
Case "う" : Y = &H3 '"u"
Case "え" : Y = &H4 '"e"
Case "お" : Y = &H5 '"o"
Case "か" : Y = &H6 '"ka"
Case "き" : Y = &H7 '"ki"
Case "く" : Y = &H8 '"ku"
Case "け" : Y = &H9 '"ke"
Case "こ" : Y = &HA '"ko"
Case "さ" : Y = &HB '"sa"
Case "し" : Y = &HC '"shi"
Case "す" : Y = &HD '"su"
Case "せ" : Y = &HE '"se"
Case "そ" : Y = &HF '"so"
Case "た" : Y = &H10 '"ta"
Case "ち" : Y = &H11 '"chi"
Case "つ" : Y = &H12 '"tsu"
Case "て" : Y = &H13 '"te"
Case "と" : Y = &H14 '"to"
Case "な" : Y = &H15 '"na"
Case "に" : Y = &H16 '"ni"
Case "ぬ" : Y = &H17 '"nu"
Case "ね" : Y = &H18 '"ne"
Case "の" : Y = &H19 '"no"
Case "は" : Y = &H1A '"ha"
Case "ひ" : Y = &H1B '"hi"
Case "ふ" : Y = &H1C '"fu"
Case "へ" : Y = &H1D '"he"
Case "ほ" : Y = &H1E '"ho"
Case "ま" : Y = &H1F '"ma"
Case "み" : Y = &H20 '"mi"
Case "む" : Y = &H21 '"mu"
Case "め" : Y = &H22 '"me"
Case "も" : Y = &H23 '"mo"
Case "や" : Y = &H24 '"ya"
Case "ゆ" : Y = &H25 '"yu"
Case "よ" : Y = &H26 '"yo"
Case "ら" : Y = &H27 '"ra"
Case "り" : Y = &H28 '"ri"
Case "る" : Y = &H29 '"ru"
Case "れ" : Y = &H2A '"re"
Case "ろ" : Y = &H2B '"ro"
Case "わ" : Y = &H2C '"wa"
Case "を" : Y = &H2D '"wo"
Case "ん" : Y = &H2E '"n"
Case "ぁ" : Y = &H2F '"la"
Case "ぃ" : Y = &H30 '"li"
Case "ぅ" : Y = &H31 '"lu"
Case "ぇ" : Y = &H32 '"le"
Case "ぉ" : Y = &H33 '"lo"
Case "ゃ" : Y = &H34 '"lya"
Case "ゅ" : Y = &H35 '"lyu"
Case "ょ" : Y = &H36 '"lyo"
Case "が" : Y = &H37 '"ga"
Case "ぎ" : Y = &H38 '"gi"
Case "ぐ" : Y = &H39 '"gu"
Case "げ" : Y = &H3A '"ge"
Case "ご" : Y = &H3B '"go"
Case "ざ" : Y = &H3C '"za"
Case "じ" : Y = &H3D '"ji"
Case "ず" : Y = &H3E '"zu"
Case "ぜ" : Y = &H3F '"ze"
Case "ぞ" : Y = &H40 '"zo"
Case "だ" : Y = &H41 '"da"
Case "ぢ" : Y = &H42 '"dji"
Case "づ" : Y = &H43 '"dzu"
Case "で" : Y = &H44 '"de"
Case "ど" : Y = &H45 '"do"
Case "ば" : Y = &H46 '"ba"
Case "び" : Y = &H47 '"bi"
Case "ぶ" : Y = &H48 '"bu"
Case "べ" : Y = &H49 '"be"
Case "ぼ" : Y = &H4A '"bo"
Case "ぱ" : Y = &H4B '"pa"
Case "ぴ" : Y = &H4C '"pi"
Case "ぷ" : Y = &H4D '"pu"
Case "ぺ" : Y = &H4E '"pe"
Case "ぽ" : Y = &H4F '"po"
Case "っ" : Y = &H50 '"ltsu"
Case "ア" : Y = &H51 '"A"
Case "イ" : Y = &H52 '"I"
Case "ウ" : Y = &H53 '"U"
Case "エ" : Y = &H54 '"E"
Case "オ" : Y = &H55 '"O"
Case "カ" : Y = &H56 '"KA"
Case "キ" : Y = &H57 '"KI"
Case "ク" : Y = &H58 '"KU"
Case "ケ" : Y = &H59 '"KE"
Case "コ" : Y = &H5A '"KO"
Case "サ" : Y = &H5B '"SA"
Case "シ" : Y = &H5C '"SHI"
Case "ス" : Y = &H5D '"SU"
Case "セ" : Y = &H5E '"SE"
Case "ソ" : Y = &H5F '"SO"
Case "タ" : Y = &H60 '"TA"
Case "チ" : Y = &H61 '"CHI"
Case "ツ" : Y = &H62 '"TSU"
Case "テ" : Y = &H63 '"TE"
Case "ト" : Y = &H64 '"TO"
Case "ナ" : Y = &H65 '"NA"
Case "ニ" : Y = &H66 '"NI"
Case "ヌ" : Y = &H67 '"NU"
Case "ネ" : Y = &H68 '"NE"
Case "ノ" : Y = &H69 '"NO"
Case "ハ" : Y = &H6A '"HA"
Case "ヒ" : Y = &H6B '"HI"
Case "フ" : Y = &H6C '"FU"
Case "ヘ" : Y = &H6D '"HE"
Case "ホ" : Y = &H6E '"HO"
Case "マ" : Y = &H6F '"MA"
Case "ミ" : Y = &H70 '"MI"
Case "ム" : Y = &H71 '"MU"
Case "メ" : Y = &H72 '"ME"
Case "モ" : Y = &H73 '"MO"
Case "ヤ" : Y = &H74 '"YA"
Case "ユ" : Y = &H75 '"YU"
Case "ヨ" : Y = &H76 '"YO"
Case "ラ" : Y = &H77 '"RA"
Case "リ" : Y = &H78 '"RI"
Case "ル" : Y = &H79 '"RU"
Case "レ" : Y = &H7A '"RE"
Case "ロ" : Y = &H7B '"RO"
Case "ワ" : Y = &H7C '"WA"
Case "ヲ" : Y = &H7D '"WO"
Case "ン" : Y = &H7E '"N"
Case "ァ" : Y = &H7F '"LA"
Case "ィ" : Y = &H80 '"LI"
Case "ゥ" : Y = &H81 '"LU"
Case "ェ" : Y = &H82 '"LE"
Case "ォ" : Y = &H83 '"LO"
Case "ャ" : Y = &H84 '"LYA"
Case "ュ" : Y = &H85 '"LYU"
Case "ョ" : Y = &H86 '"LYO"
Case "ガ" : Y = &H87 '"GA"
Case "ギ" : Y = &H88 '"GI"
Case "グ" : Y = &H89 '"GU"
Case "ゲ" : Y = &H8A '"GE"
Case "ゴ" : Y = &H8B '"GO"
Case "ザ" : Y = &H8C '"ZA"
Case "ジ" : Y = &H8D '"JI"
Case "ズ" : Y = &H8E '"ZU"
Case "ゼ" : Y = &H8F '"ZE"
Case "ゾ" : Y = &H90 '"ZO"
Case "ダ" : Y = &H91 '"DA"
Case "ヂ" : Y = &H92 '"DJI"
Case "ヅ" : Y = &H93 '"DZU"
Case "デ" : Y = &H94 '"DE"
Case "ド" : Y = &H95 '"DO"
Case "バ" : Y = &H96 '"BA"
Case "ビ" : Y = &H97 '"BI"
Case "ブ" : Y = &H98 '"BU"
Case "ベ" : Y = &H99 '"BE"
Case "ボ" : Y = &H9A '"BO"
Case "パ" : Y = &H9B '"PA"
Case "ピ" : Y = &H9C '"PI"
Case "プ" : Y = &H9D '"PU"
Case "ペ" : Y = &H9E '"PE"
Case "ポ" : Y = &H9F '"PO"
Case "ッ" : Y = &HA0 '"LTSU"
End Select
End If
If m = False Then Y = &H0
o = o & Chr(Y)
Next i
NameAsc2Sapp = o
End Function
End Module
Reference in New Issue View Git Blame Copy Permalink