VB.NETでNullを含むテキストファイルを読み込む

投稿日時: 2019年9月10日投稿者: ORGN-G

Windowsフォームアプリケーションで単純にログファイルをTextBoxに表示したいが0x00(NUL)コードがファイル内にあるとそこまでしか読み込んでくれない。どうしたものか。

これで少々詰まったので備忘として書いておく。
結果的には一旦ファイルをByte配列として開き、NULをスペース(0x20 SPC)に置換、その後文字に変換することで正常に表示できた。

コード：

Dim data() As Byte = File.ReadAllBytes("C:\test")

For i As Integer = 0 To data.Length - 1
	If data(i) = "00" Then
		data(i) = "20"
	End If
Next

TextBox1.Text = System.Text.Encoding.GetEncodeing(932).GetString(data)

Dim data() As Byte = File.ReadAllBytes("C:\test")

For i As Integer = 0 To data.Length - 1

If data(i) = "00" Then

data(i) = "20"

End If

TextBox1.Text = System.Text.Encoding.GetEncodeing(932).GetString(data)

ログファイルはShift_JISを想定、
あとこの方法だとファイルサイズが大きいものは処理が遅そうだが、事は足りたし自分はインフラ屋なので後は知らん（逃げ）

HSPの迷路プログラム更新した

投稿日時: 2016年2月20日投稿者: ORGN-G

こんちゃ

せっかくの春休みなのに風邪を引いて全く活発に活動できないのでごろごろしつつ一昨年くらいに書いた迷路プログラムを改造してみた。

なにもおもしろい機能は増えてないが、セーブロード周りの強化と細かい動作の改善程度。

前回と決定的に違うのは、ちゃんと配布するところです。

こちらからどうぞ。

ダウンロード

2018年6月追記：今更だけど再構築に伴ってリンク切れてたので修正しました。

デスクトップマスコットを作りたい

投稿日時: 2014年12月1日投稿者: ORGN-G

なんかデスクトップ上にいたら面白いなと思って作ったのがこれ。

もちろん多重起動できる。

制作時間15分。手抜き。

マスコット的な物をつくるにあたって何が問題かって絵を描くことですよね。

ウィザードリィっぽい迷路探索

投稿日時: 2014年11月28日投稿者: ORGN-G

たまにHSPでなんかつくろうと思った。なんとなく遊べるものを作るのにはHSPは手軽でいい。

ウィザードリィ風にしようと思った理由は簡単である。画面に線しか引かなくていいからだ。酷い理由だな。

まずはうろうろ出来るようになった。

迷路は1マスあたり16進2桁で記録している。壁を1で道を0にするというのだとあとから仕掛けなど入れようと思ったときに道の種類など追加できない。まぁいまのところ種も仕掛けもないただの迷路なんだけど…

次に自動生成機能でも作ろうと思ったのだが、迷路を自動生成するならば2進で表せる迷路の方が簡単じゃないかと思った。というわけで先に0と1で表した迷路データを16進2桁のデータに変換するコードを書いた。

コンバータ部ができたところで、これなら手軽に使えるマップエディタが作れるなと思ったので自動生成はそっちのけでマップエディタを作成。

これでマップエディタで迷路を作ってそのまますぐ遊べる。

マップエディタで複雑な迷路を作れるようになると、今度は自分で作った迷路にもかかわらずクリア出来ないという事案が多発するようになった。クリアできない迷路ほど腹立たしいものはないので今度はミニマップをつけた。

ミニマップはあってないようなタイトル画面でON/OFFできる。自分で方眼紙にマッピングして遊ぶという方はOFFにして遊んで下さい。

さて、このへんまでくると迷路の自動生成はどうでもよくなってきた。今度はこの迷路にどんな仕掛けをつけるかが問題だ。謎解きくらいは盛り込みたいものだが、未だに方向性を絞れずにいるのでこのプロジェクトは停滞中。

ところで、似たような見た目の迷路を2,3年前にも作った。

今回のものと昔作った物の決定的な違いは視界にある。

以前作った物は自分が今いるタイルしか表示されない。つまるところお先真っ暗。

今回のは2.5先まで見えている。

まぁただそれだけなんだが。

2016年2月追記

最新版置いときます

Bukkitサーバー用のプラグインを作ってみた

投稿日時: 2014年7月26日投稿者: ORGN-G

マインクラフトサーバーの更新にあたり、サーバープログラムをbukkitからSpigotに変更した。

また、MCbansと競合することがあった管理・ロギングプラグインであるShadowAdminをやめて定番のHawkeyeに入れ替えることにした。特に問題はなく移行は完了したのだが、ShadowAdminについていたチャット整形機能が使えなくなったためチャットの表示はデフォルトに戻ってしまった。

使用上はなにも問題がないがShadowAdminの表示に見慣れていたのと、時間表示が便利であったためチャットを整形するプラグインを導入することにした。

もちろん先に既出の同等プラグインがないか探したけれど発見できず、ならばと自分で作ることにした。プラグインの作り方についてのページは英語、日本語ともに豊富で情報を集めるのに不自由はなかった。

まずはじめにプラグインを作成するにあたり、Javaの基本的な書き方について押さえなくてはならない。今までJavaは書いたことがなかった。

開発環境にEclipseを用意し、解説を読みながらとりあえず書いていく。イベントを関知する部分でちょっと悩んだが非常に簡単な機能のプラグインということもありあっけなく完成してしまった。

今回Bukkitのイベント一覧をざっと見たが、様々なイベントを取得できるようになっており、アイディア次第で様々な楽しいプラグインを作れそうだと感じたが、他にたいしたアイディアもなくこれ以来プラグインはおろかJavaすら書いていないのであった。

HSP3 横スクロールシューティング

投稿日時: 2013年12月4日投稿者: ORGN-G

先日はHSPで星もどきを多重スクロールするプログラムについて紹介しましたが、ああいうのはいかにも横シューの背景であるのでレーザーを撃てる自機を作ってみます。

とりあえず、以下のプログラムを実行してみてください。なお、今回は敵のプログラム部分は抜いてあります。

//Shooting Sample  (C)2013 Eximradar.net ORGN-G

dim laserPosX,10
dim laserPosY,10
dim laserLength,10

//ショットフラグ用変数
dim shotFlag,10

dim starPosX,60
dim starPosY,60

//自機の初期位置
mePosX = 240
mePosY = 400

for i,0,60,1
	starPosX(i) = rnd(640)
	starPosY(i) = rnd(480)
next

*drowloop

//画面初期化
cls 4
color 255,255,255
pos mePosX,mePosY
mes meGrafx

//キー入力判定
getkey keyRight,68
getkey keyLeft,65
getkey keyUp,87
getkey keyDown,83

stick shotKey,0

//ショットフラグを立てる
if shotKey&16{

	for i,0,7,1
		if shotLimit=0 and shotFlag(i)=0:shotFlag(i)=1:laserPosX(i)=x:laserPosY(i)=y:shotLimit=1
	next
}

shotLimit=0

//自機移動
meGrafx="^=--"

if keyRight = 1 :if mePosX<=600 : mePosX = mePosX+4 : meGrafx = "^=--"
if keyLeft  = 1 :if mePosX>=10  : mePosX = mePosX-4 : meGrafx = "^=--"
if keyUp    = 1 :if mePosY>=10  : mePosY = mePosY-4 : meGrafx = "二＞"
if keyDown  = 1 :if mePosY<=470 : mePosY = mePosY+4 : meGrafx = "二＞"

//レーザーの描画
foreach shotFlag

	if shotFlag(cnt) = 1{

		if   laserLength(cnt) < 100 : laserLength(cnt) + 10 : laserPosX(cnt) = mePosX + 28 : laserPosY(cnt) = mePosY
   		line laserPosX(cnt),laserPosY(cnt)+6,laserPosX(cnt)+laserLength(cnt),laserPosY(cnt)+6
   		if   laserLength(cnt) = 100 : laserPosX(cnt) = laserPosX(cnt) + 10
		if   laserPosX(cnt) >= 640 : shotFlag(cnt) = 0 : laserLength(cnt) = 0 : nfst(cnt) = 1

	}
loop

//背景スクロール
foreach starPosX

		if 0  <= cnt and cnt <= 19 : starPosX(cnt) - 2 :color 253,255,100
		if 20 <= cnt and cnt <= 39 : starPosX(cnt) - 3 :color 255,146,100
		if 40 <= cnt and cnt <= 60 : starPosX(cnt) - 5 :color 255,255,255
		if starPosX(cnt) < 0:starPosX(cnt) = 641 : starPosY(cnt) = rnd(480)
		pset starPosX(cnt),starPosY(cnt)
loop

//画面に反映
redraw 1
wait 1
redraw 0

goto *drowloop

dim laserPosX,10

dim laserPosY,10

dim laserLength,10

//ショットフラグ用変数

dim shotFlag,10

dim starPosX,60

dim starPosY,60

//自機の初期位置

mePosX = 240

mePosY = 400

for i,0,60,1

starPosX(i) = rnd(640)

starPosY(i) = rnd(480)

*drowloop

//画面初期化

cls 4

color 255,255,255

pos mePosX,mePosY

mes meGrafx

//キー入力判定

getkey keyRight,68

getkey keyLeft,65

getkey keyUp,87

getkey keyDown,83

stick shotKey,0

//ショットフラグを立てる

if shotKey&16{

for i,0,7,1

if shotLimit=0 and shotFlag(i)=0:shotFlag(i)=1:laserPosX(i)=x:laserPosY(i)=y:shotLimit=1

}

shotLimit=0

//自機移動

meGrafx="^=--"

if keyRight = 1 :if mePosX<=600 : mePosX = mePosX+4 : meGrafx = "^=--"

if keyLeft = 1 :if mePosX>=10 : mePosX = mePosX-4 : meGrafx = "^=--"

if keyUp = 1 :if mePosY>=10 : mePosY = mePosY-4 : meGrafx = "二＞"

if keyDown = 1 :if mePosY<=470 : mePosY = mePosY+4 : meGrafx = "二＞"

//レーザーの描画

foreach shotFlag

if shotFlag(cnt) = 1{

if laserLength(cnt) < 100 : laserLength(cnt) + 10 : laserPosX(cnt) = mePosX + 28 : laserPosY(cnt) = mePosY

line laserPosX(cnt),laserPosY(cnt)+6,laserPosX(cnt)+laserLength(cnt),laserPosY(cnt)+6

if laserLength(cnt) = 100 : laserPosX(cnt) = laserPosX(cnt) + 10

if laserPosX(cnt) >= 640 : shotFlag(cnt) = 0 : laserLength(cnt) = 0 : nfst(cnt) = 1

}

loop

//背景スクロール

foreach starPosX

if 0 <= cnt and cnt <= 19 : starPosX(cnt) - 2 :color 253,255,100

if 20 <= cnt and cnt <= 39 : starPosX(cnt) - 3 :color 255,146,100

if 40 <= cnt and cnt <= 60 : starPosX(cnt) - 5 :color 255,255,255

if starPosX(cnt) < 0:starPosX(cnt) = 641 : starPosY(cnt) = rnd(480)

pset starPosX(cnt),starPosY(cnt)

loop

//画面に反映

redraw 1

wait 1

redraw 0

goto *drowloop

動作イメージがわかったところで各セクションについて説明を加えていきます。

各命令についてはHSPの命令リファレンスなどを参照してください。

//ショットフラグ用の変数

・この配列変数には、「レーザーが画面に表示されているか」のフラグが格納されます。

・上のサンプルでは配列が10ですので、画面上には同時に10本のレーザーが表示できます。

//画面初期化

・次フレーム描画のためにここで画面を一度まっさらな状態にしています。

//キー入力判定

・getkey及びstick命令でキー入力を取得しています。

・stick命令は同時押し判定が必要な時に便利です。

//ショットフラグを立てる

・スペースキーが押された場合にショットフラグを立てます。配列の若い方が優先されます。

・shotLimitで1フレーム中にフラグを立てられる数を1つに制限しています。

//自機移動

・キー入力に基づいて自機を移動します。サンプルでは上下左右ともに移動速度は4ドット/フレームです。

//レーザー描画

・ショットフラグに基づいてレーザーを描画します。

・サンプルではlaserLength(レーザー長)は100です。自機の前に突然長さ100のレーザーが現れるのは不自然ですから、64行目で自機からレーザーが伸びる処理をしています。レーザー長が100に達するまではレーザーの始点は自機に追従します。

・レーザーは10ドット/1フレームの速度で発射されます。

・65行目は実際にline命令でレーザーを描画しています。

・66行目ではlaserLengthが100に達したレーザーを画面右にスクロールしています。レーザ長や速度を変更する場合は、64行目のlaserLengthとlaserPosXに数値を一致させなければなりません。

・67行目では、画面外に出たレーザーのショットフラグを解除（下ろす）しています。

//背景スクロール

前述の通り、前回のプログラムを使用しています。

//画面に反映

・試してもらえばわかりますが、redraw部分がないと画面がちらつきます。

ざっと説明させてもらいましたが、不明な点などはコメント欄にお寄せいただければ可能な限りお答えいたします。

それでは今回はこの辺で。

HSP3基礎編ループ命令

投稿日時: 2013年11月11日投稿者: ORGN-G

今回はHSPネタです。

大昔に自分が書いたコードを見ていたら、「星の多重スクロール」をさせるプログラムがありました。星といってもpsetで点を打って動かしてるだけです。横スクロールシューティングの背景でよくあるアレです。

仕様としては、3レイヤーで各20個の点が移動します。

続きを読む →

環水平アーク

Circumhorizontal Arc.

「プログラミング」カテゴリーアーカイブ