灰色の棚

適当な話を適当に書くので、適当に見ていってください

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

 ね、簡単でしょ?