SQLの窓

2011年09月11日


VB.net : 「ファイルを開くダイアログ」のパラメータを単純なテキストファイルより取得する

テキストファイルは、メモ帳で以下のようにして作成します
C:\
HTML|*.html;*.htm|CSS|*.css|JavaScript|*.js|全てのファイル|*.*
4
★ ファイルを選択してください ★
True
True
True
True は、Boolean.Parse によって変換します。True と False 以外はエラーと なるので注意して下さい。 文字列配列による Split は第二引数にオプションが必要です。ここでは通常の StringSplitOptions.None を指定しています
Imports System.IO
Imports System.Text
Imports System.Windows.Forms

Module Module1

	Sub Main()

		' 文字列と Boolean 変換テスト
		Console.WriteLine(Boolean.TrueString)
		Console.WriteLine(Boolean.Parse("true"))

		Console.ReadLine()

		' パラメータファイルを一括読み込み
		Dim SJIS_Enc As Encoding = Encoding.GetEncoding(932)
		Dim sr As StreamReader = New StreamReader("param.txt", SJIS_Enc)
		Dim text As String = sr.ReadToEnd()
		Console.WriteLine(text)
		sr.Close()

		' CRLF を区切り文字列としてテキストデータ全体を分割
		Dim stringSeparators As String() = {Microsoft.VisualBasic.Constants.vbCrLf}
		Dim myParamArray As String() = text.Split(stringSeparators, StringSplitOptions.None)

		For Each strMember As String In myParamArray
			Console.WriteLine(strMember)
		Next

		Console.ReadLine()

		' 取得した文字列の配列を使って「ファイルを開くダイアログ」を表示
		Dim ofd As New OpenFileDialog()

		ofd.InitialDirectory = myParamArray(0)
		ofd.Filter = myParamArray(1)
		ofd.FilterIndex = myParamArray(2)
		ofd.Title = myParamArray(3)
		ofd.RestoreDirectory = Boolean.Parse(myParamArray(4))
		ofd.CheckFileExists = Boolean.Parse(myParamArray(5))
		ofd.CheckPathExists = Boolean.Parse(myParamArray(6))

		'ダイアログを表示する
		If ofd.ShowDialog() = DialogResult.OK Then
			Console.WriteLine(ofd.FileName)
		End If

		Console.ReadLine()

	End Sub

	'C:\
	'HTML|*.html;*.htm|CSS|*.css|JavaScript|*.js|全てのファイル|*.*
	'4
	'★ ファイルを選択してください ★
	'True
	'True
	'True

End Module

関連する記事

VB.net での テキストファイルの読み書きを、
出力時のみキャラクタセット毎に条件コンパイル指定する


posted by lightbox at 2011-09-11 15:36 | VB.NET : ベーシック | このブログの読者になる | 更新情報をチェックする
container 終わり



フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり