163040163052 瞬希です!
スポンサードリンク
30131527 29403623132651 334044 22303823 334044
30131814121431 55 402322 25 3158222141 20 4231
3140523011 55 153158 5557 20 142317293234 1512394758
2547145552 37194032595036 404417 142317293234 11154014124016
401310401310 3038402332184022 25 4044551423
251913 322312403337 3921443415 331723401222
30513158 1254 30513416 4012 2115411234 401255 213422
1512394758
大した内容は書いていませんが、読めるでしょうか?
この変換のためだけに、HSPでプログラム組みました。文中にも書きましたが、バカですよね~。
or-amji,ed uoysnub ow etiak urim - ウタカタ家
この記事に影響を受けてのチャレンジです。仕組みさえ分かればわりと簡単だと思うけど、どうだろう。
よめるかな
2014/9/1 12:42 追記
ちょっと難しすぎた感じもありますし、変換プログラムのコードを置いておきます。
言語はHSPです。わりと力技だな~。
title "Transform" screen 0, 480, 640 sdim repStr, 2, 51, 2 repStr(0, 0) = "あ", "い", "う", "え", "お", "か", "き", "く", "け", "こ", "さ", "し", "す", "せ", "そ", "た", "ち", "つ", "て", "と", "な", "に", "ぬ", "ね", "の", "は", "ひ", "ふ", "へ", "ほ", "ま", "み", "む", "め", "も", "や", "(", "ゆ", ")", "よ", "ら", "り", "る", "れ", "ろ", "わ", "を", "ん", "゛", "゜", " " repStr(0, 1) = "11", "12", "13", "14", "15", "21", "22", "23", "24", "25", "31", "32", "33", "34", "35", "41", "42", "43", "44", "45", "51", "52", "53", "54", "55", "61", "62", "63", "64", "65", "71", "72", "73", "74", "75", "81", "82", "83", "84", "85", "91", "92", "93", "94", "95", "01", "02", "03", "04", "05", " " sdim string, 2048 sdim exstring, 4096 pos 40, 40 input string, 400, 300, 2048 pos 210, 370 button goto "変換", *push pos 40, 420 mesbox exstring, 400, 200, 0, 4096 stop *push sdim strtmp, 4096 strtmp = string exstring = "" repeat 51 strrep strtmp, repStr(cnt, 0), repStr(cnt, 1) loop split strtmp, " ", tmp repeat stat num = tmp(cnt) max = strlen(num) num2 = "" repeat max num2 += strmid(num, max - cnt - 1, 1) loop exstring = exstring + str(num2) + " " loop objprm 2, strtrim(exstring, 2, ' ') stop
ね、簡単でしょ?