VB 2005 Express Edition で作成された

1) Form1.vb
2) Form1.Designer.vb

を以下のコマンドでビルド

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
vbc /t:winexe /main:Form1 /out:myProg Form1.vb Form1.Designer.vb

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows フォーム デザイナで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナで必要です。
    'Windows フォーム デザイナを使用して変更できます。  
    'コード エディタを使って変更しないでください。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(47, 33)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(192, 36)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(26, 94)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(236, 143)
        Me.TextBox1.TabIndex = 1
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

End Class

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Imports System.IO
Imports System.Text
Imports System.Windows


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' **************************************************************
' テキストファイルを読み込む為の Stream クラス と 
' ファイルを開くダイアログを使用する為の OpenFileDialog クラス
' **************************************************************
        Dim myStream As Stream
        Dim dlg As New Forms.OpenFileDialog

        Dim arg As String() = Environment.GetCommandLineArgs()

' **************************************************************
' ファイルパスを分解して、ディレクトリのパスに変換する
' **************************************************************
        Dim delimStr As String = "\"
        Dim delimiter As Char() = delimStr.ToCharArray()
        Dim aData As String() = arg(0).Split(delimiter)
        Dim pgDir As String = String.Join("\", aData, 0, aData.Length - 1)

' **************************************************************
' 変換したパスを初期ディレクトリとして設定
' **************************************************************
        dlg.InitialDirectory = pgDir
        dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        dlg.FilterIndex = 2
        dlg.RestoreDirectory = True

        Dim str As String = ""

' **************************************************************
' ファイルを開くダイアログを表示
' **************************************************************
        If dlg.ShowDialog() = Forms.DialogResult.OK Then
            myStream = dlg.OpenFile()
            If Not (myStream Is Nothing) Then

' **************************************************************
' ファイルを読む為の StreamReader クラス
' ファイルは Shift_JIS なので明示する必要がある
' **************************************************************
                Dim sr As StreamReader = _
                    New StreamReader( _
                        myStream, _
                        Encoding.GetEncoding("Shift_JIS") _
                    )

' **************************************************************
' ループ処理で行を結合して、ファイル全体としてのテキストを作成
' **************************************************************
                Do While sr.Peek() >= 0
                    str += sr.ReadLine() + vbCrLf
                Loop

' **************************************************************
' 複数行のテキストボックスにセットして表示
' **************************************************************
                Me.TextBox1.Text = str

' **************************************************************
' リーダとストリームを閉じる
' **************************************************************
                sr.Close()
                myStream.Close()

            End If
        End If

    End Sub

End Class

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Imports System.IO
Imports System.Text
Imports System.Windows


Public Class Form1

    Private Function GetProgDir() As String

        Dim arg As String() = Environment.GetCommandLineArgs()

' **************************************************************
' ファイルパスを分解して、ディレクトリのパスに変換する
' **************************************************************
        Dim delimStr As String = "\"
        Dim delimiter As Char() = delimStr.ToCharArray()
        Dim aData As String() = arg(0).Split (delimiter)
        Dim pgDir As String = String.Join ("\", aData, 0, aData.Length - 1)

' **************************************************************
' 関数から値を返すには、関数名に値を割り当てるか、
' または Return ステートメントに値を設定します
' **************************************************************
	Return pgDir

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' **************************************************************
' テキストファイルを読み込む為の Stream クラス と 
' ファイルを開くダイアログを使用する為の OpenFileDialog クラス
' **************************************************************
        Dim myStream As Stream
        Dim dlg As New Forms.OpenFileDialog


' **************************************************************
' 変換したパスを初期ディレクトリとして設定
' **************************************************************
        dlg.InitialDirectory = GetProgDir()
        dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        dlg.FilterIndex = 2
        dlg.RestoreDirectory = True

        Dim str As String = ""

' **************************************************************
' ファイルを開くダイアログを表示
' **************************************************************
        If dlg.ShowDialog() = Forms.DialogResult.OK Then
            myStream = dlg.OpenFile()
            If Not (myStream Is Nothing) Then

' **************************************************************
' ファイルを読む為の StreamReader クラス
' ファイルは Shift_JIS なので明示する必要がある
' **************************************************************
                Dim sr As StreamReader = _
                    New StreamReader( _
                        myStream, _
                        Encoding.GetEncoding ("Shift_JIS") _
                    )

' **************************************************************
' ループ処理で行を結合して、ファイル全体としてのテキストを作成
' **************************************************************
                Do While sr.Peek() >= 0
                    str += sr.ReadLine() + vbCrLf
                Loop

' **************************************************************
' 複数行のテキストボックスにセットして表示
' **************************************************************
                Me.TextBox1.Text = str

' **************************************************************
' リーダとストリームを閉じる
' **************************************************************
                sr.Close()
                myStream.Close()

            End If
        End If

    End Sub

End Class

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
vbc /t:winexe /main:Form1 /out:myProg Form1.vb Form1.Designer.vb Common.vb


↓Common.vb
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Imports System.IO
Imports System.Text
Imports System.Windows

Public Class Lightbox

    Public Shared Function GetProgDir() As String

        Dim arg As String() = Environment.GetCommandLineArgs()

' **************************************************************
' ファイルパスを分解して、ディレクトリのパスに変換する
' **************************************************************
        Dim delimStr As String = "\"
        Dim delimiter As Char() = delimStr.ToCharArray()
        Dim aData As String() = arg(0).Split (delimiter)
        Dim pgDir As String = String.Join ("\", aData, 0, aData.Length - 1)

' **************************************************************
' 関数から値を返すには、関数名に値を割り当てるか、
' または Return ステートメントに値を設定します
' **************************************************************
	Return pgDir

    End Function

End Class


↓Form1.vb
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Imports System.IO
Imports System.Text
Imports System.Windows


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' **************************************************************
' テキストファイルを読み込む為の Stream クラス と 
' ファイルを開くダイアログを使用する為の OpenFileDialog クラス
' **************************************************************
        Dim myStream As Stream
        Dim dlg As New Forms.OpenFileDialog


' **************************************************************
' 変換したパスを初期ディレクトリとして設定
' **************************************************************
        dlg.InitialDirectory = Lightbox.GetProgDir()
        dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        dlg.FilterIndex = 2
        dlg.RestoreDirectory = True

        Dim str As String = ""

' **************************************************************
' ファイルを開くダイアログを表示
' **************************************************************
        If dlg.ShowDialog() = Forms.DialogResult.OK Then
            myStream = dlg.OpenFile()
            If Not (myStream Is Nothing) Then

' **************************************************************
' ファイルを読む為の StreamReader クラス
' ファイルは Shift_JIS なので明示する必要がある
' **************************************************************
                Dim sr As StreamReader = _
                    New StreamReader( _
                        myStream, _
                        Encoding.GetEncoding ("Shift_JIS") _
                    )

' **************************************************************
' ループ処理で行を結合して、ファイル全体としてのテキストを作成
' **************************************************************
                Do While sr.Peek() >= 0
                    str += sr.ReadLine() + vbCrLf
                Loop

' **************************************************************
' 複数行のテキストボックスにセットして表示
' **************************************************************
                Me.TextBox1.Text = str

' **************************************************************
' リーダとストリームを閉じる
' **************************************************************
                sr.Close()
                myStream.Close()

            End If
        End If

    End Sub

End Class

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Imports System.IO
Imports System.Text
Imports System.Windows

Public Class Lightbox

    Public Function GetProgDir() As String

        Dim arg As String() = Environment.GetCommandLineArgs()

' **************************************************************
' ファイルパスを分解して、ディレクトリのパスに変換する
' **************************************************************
        Dim delimStr As String = "\"
        Dim delimiter As Char() = delimStr.ToCharArray()
        Dim aData As String() = arg(0).Split (delimiter)
        Dim pgDir As String = String.Join ("\", aData, 0, aData.Length - 1)

' **************************************************************
' 関数から値を返すには、関数名に値を割り当てるか、
' または Return ステートメントに値を設定します
' **************************************************************
	Return pgDir

    End Function

End Class


拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Imports System.IO
Imports System.Text
Imports System.Windows


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' **************************************************************
' テキストファイルを読み込む為の Stream クラス と 
' ファイルを開くダイアログを使用する為の OpenFileDialog クラス
' **************************************************************
        Dim myStream As Stream
        Dim dlg As New Forms.OpenFileDialog


' **************************************************************
' 変換したパスを初期ディレクトリとして設定
' **************************************************************
        dlg.InitialDirectory = (New Lightbox()).GetProgDir()
        dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        dlg.FilterIndex = 2
        dlg.RestoreDirectory = True

        Dim str As String = ""

' **************************************************************
' ファイルを開くダイアログを表示
' **************************************************************
        If dlg.ShowDialog() = Forms.DialogResult.OK Then
            myStream = dlg.OpenFile()
            If Not (myStream Is Nothing) Then

' **************************************************************
' ファイルを読む為の StreamReader クラス
' ファイルは Shift_JIS なので明示する必要がある
' **************************************************************
                Dim sr As StreamReader = _
                    New StreamReader( _
                        myStream, _
                        Encoding.GetEncoding ("Shift_JIS") _
                    )

' **************************************************************
' ループ処理で行を結合して、ファイル全体としてのテキストを作成
' **************************************************************
                Do While sr.Peek() >= 0
                    str += sr.ReadLine() + vbCrLf
                Loop

' **************************************************************
' 複数行のテキストボックスにセットして表示
' **************************************************************
                Me.TextBox1.Text = str

' **************************************************************
' リーダとストリームを閉じる
' **************************************************************
                sr.Close()
                myStream.Close()

            End If
        End If

    End Sub

End Class

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
using System;
using System.Text;
using System.Windows.Forms;
using System.IO;

namespace Sample_01
{
	static class Program {
		/// <summary>
		/// アプリケーションのメイン エントリ ポイントです。
		/// </summary>
		[STAThread]
		static void Main()
		{
			Application.EnableVisualStyles();
			Application.SetCompatibleTextRenderingDefault(false);
			Application.Run(new Form1());
		}
	}

	public partial class Form1 : Form
	{
		public Form1()
		{
			InitializeComponent();
		}

		private void button1_Click(object sender, EventArgs e)
		{

			Stream myStream;
			OpenFileDialog dlg = new OpenFileDialog();

			String[] arg = Environment.GetCommandLineArgs();

			String delimStr = @"\";
			Char[] delimiter = delimStr.ToCharArray();
			String[] aData = arg[0].Split(delimiter);
			String pgDir = String.Join(@"\", aData, 0, aData.Length - 1);

			dlg.InitialDirectory = pgDir;
			dlg.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*";
			dlg.FilterIndex = 2;
			dlg.RestoreDirectory = true;

			String str = "";

			if ( dlg.ShowDialog() == DialogResult.OK ) {
				myStream = dlg.OpenFile();
				if (myStream != null) {

					StreamReader sr = new StreamReader( 
							myStream, 
							Encoding.GetEncoding("Shift_JIS")
						);

					while ( sr.Peek() >= 0 ) {
						str += sr.ReadLine() + "\r\n";
					}

					textBox1.Text = str;

					sr.Close();
					myStream.Close();
				}

			}
		}
	}
}



Form1.Designer.cs
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
namespace Sample_01
{
    partial class Form1
    {
        /// <summary>
        /// 必要なデザイナ変数です。
        /// </summary>
        private System.ComponentModel.IContainer components = null;

        /// <summary>
        /// 使用中のリソースをすべてクリーンアップします。
        /// </summary>
        /// <param name="disposing">マネージ リソースが破棄される場合 true、破棄されない場合は false です。</param>
        protected override void Dispose(bool disposing)
        {
            if (disposing && (components != null))
            {
                components.Dispose();
            }
            base.Dispose(disposing);
        }

        #region Windows フォーム デザイナで生成されたコード

        /// <summary>
        /// デザイナ サポートに必要なメソッドです。このメソッドの内容を
        /// コード エディタで変更しないでください。
        /// </summary>
        private void InitializeComponent()
        {
            this.button1 = new System.Windows.Forms.Button();
            this.textBox1 = new System.Windows.Forms.TextBox();
            this.SuspendLayout();
            // 
            // button1
            // 
            this.button1.Location = new System.Drawing.Point(56, 28);
            this.button1.Name = "button1";
            this.button1.Size = new System.Drawing.Size(180, 35);
            this.button1.TabIndex = 0;
            this.button1.Text = "button1";
            this.button1.UseVisualStyleBackColor = true;
            this.button1.Click += new System.EventHandler(this.button1_Click);
            // 
            // textBox1
            // 
            this.textBox1.Location = new System.Drawing.Point(57, 97);
            this.textBox1.Multiline = true;
            this.textBox1.Name = "textBox1";
            this.textBox1.Size = new System.Drawing.Size(551, 317);
            this.textBox1.TabIndex = 1;
            // 
            // Form1
            // 
            this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 12F);
            this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
            this.ClientSize = new System.Drawing.Size(665, 457);
            this.Controls.Add(this.textBox1);
            this.Controls.Add(this.button1);
            this.Name = "Form1";
            this.Text = "Form1";
            this.ResumeLayout(false);
            this.PerformLayout();

        }

        #endregion

        private System.Windows.Forms.Button button1;
        private System.Windows.Forms.TextBox textBox1;
    }
}

↓利用方法
dlg.InitialDirectory = this.GetProgDir();

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
private String GetProgDir() {

	String[] arg = Environment.GetCommandLineArgs();

	String delimStr = @"\";
	Char[] delimiter = delimStr.ToCharArray();
	String[] aData = arg[0].Split(delimiter);
	String pgDir = String.Join(@"\", aData, 0, aData.Length - 1);

	return pgDir;

}

↓利用方法
dlg.InitialDirectory = Lightbox.GetProgDir();

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
public class Lightbox
{
	public static String GetProgDir()
	{
		String[] arg = Environment.GetCommandLineArgs();

		String delimStr = @"\";
		Char[] delimiter = delimStr.ToCharArray();
		String[] aData = arg[0].Split(delimiter);
		String pgDir = String.Join(@"\", aData, 0, aData.Length - 1);

		return pgDir;
	}
}

↓利用方法
dlg.InitialDirectory = (new Lightbox()).GetProgDir();

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
public class Lightbox
{
	public String GetProgDir()
	{
		String[] arg = Environment.GetCommandLineArgs();

		String delimStr = @"\";
		Char[] delimiter = delimStr.ToCharArray();
		String[] aData = arg[0].Split(delimiter);
		String pgDir = String.Join(@"\", aData, 0, aData.Length - 1);

		return pgDir;
	}
}

必要な名前空間 : System.Data.Odbc

読み込み
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

	Dim strCon As String

	' 接続文字列作成
	strCon = "Driver={Microsoft ODBC for Oracle};SERVER=localhost/ORCL;UID=lightbox;PWD=lightbox"

	' 接続準備
	Dim myCon As OdbcConnection = New OdbcConnection(strCon)

	' コマンド
	Dim strQuery As String = "select * from 社員マスタ"
	' コマンド準備
	Dim myCommand As OdbcCommand = New OdbcCommand(strQuery)
	' コマンドを使用する接続用インスタンスを関係付ける
	myCommand.Connection = myCon
	' 接続
	myCon.Open()

	' レコード取得用のオブジェクト
	' レコード取得用のオブジェクトを取得
	Dim myReader As OdbcDataReader = myCommand.ExecuteReader()

	' データ取得用の変数
	Dim str As String = ""
	Dim fld As Integer

	' 全てのレコードを取得
	Do While myReader.Read()

		' 列の番号
		fld = myReader.GetOrdinal("社員コード")
		' 列の文字列値
		If myReader.IsDBNull(fld) Then
			str += "null"
		Else
			str += myReader.GetString(fld)
		End If
		' 列の番号
		fld = myReader.GetOrdinal("氏名")
		If myReader.IsDBNull(fld) Then
			str += "|null"
		Else
			str += "|" + myReader.GetString(fld)
		End If

		str += vbCrLf

	Loop

	' 接続解除
	myCon.Close()

	Me.TextBox1.Text = str

End Sub



更新
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

	Dim strCon As String

	' 接続文字列作成
	strCon = "Driver={Microsoft ODBC for Oracle};SERVER=localhost/ORCL;UID=lightbox;PWD=lightbox"

	' 接続準備
	Dim myCon As OdbcConnection = New OdbcConnection(strCon)
	' 接続
	myCon.Open()

	' コマンド
	Dim strQuery As String = "insert into 社員マスタ (社員コード) values('9901')"
	' コマンド準備
	Dim myCommand As OdbcCommand = New OdbcCommand(strQuery, myCon)
	' 実行
	myCommand.ExecuteNonQuery()

	' コマンド
	myCommand.CommandText = "insert into 社員マスタ (社員コード) values('9902')"
	' 実行
	myCommand.ExecuteNonQuery()

	' 接続解除
	myCon.Close()

End Sub

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
import javax.swing.JFileChooser;
import java.io.*;
import java.io.File;
import javax.swing.filechooser.FileFilter;
        
public class NewJFrame extends javax.swing.JFrame {
    
    /** Creates new form NewJFrame */
    public NewJFrame() {
        initComponents();
    }
    
    /** This method is called from within the constructor to
     * initialize the form.
     * WARNING: Do NOT modify this code. The content of this method is
     * always regenerated by the Form Editor.
     */
    // <editor-fold defaultstate="collapsed" desc=" Generated Code">//GEN-BEGIN:initComponents
    private void initComponents() {
        jButton1 = new javax.swing.JButton();
        jScrollPane1 = new javax.swing.JScrollPane();
        jTextArea1 = new javax.swing.JTextArea();

        setDefaultCloseOperation(javax.swing.WindowConstants.EXIT_ON_CLOSE);
        jButton1.setText("\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f");
        jButton1.addActionListener(new java.awt.event.ActionListener() {
            public void actionPerformed(java.awt.event.ActionEvent evt) {
                jButton1ActionPerformed(evt);
            }
        });

        jTextArea1.setColumns(20);
        jTextArea1.setRows(5);
        jScrollPane1.setViewportView(jTextArea1);

        org.jdesktop.layout.GroupLayout layout = new org.jdesktop.layout.GroupLayout(getContentPane());
        getContentPane().setLayout(layout);
        layout.setHorizontalGroup(
            layout.createParallelGroup(org.jdesktop.layout.GroupLayout.LEADING)
            .add(layout.createSequentialGroup()
                .add(layout.createParallelGroup(org.jdesktop.layout.GroupLayout.LEADING)
                    .add(layout.createSequentialGroup()
                        .add(132, 132, 132)
                        .add(jButton1, org.jdesktop.layout.GroupLayout.PREFERRED_SIZE, 196, org.jdesktop.layout.GroupLayout.PREFERRED_SIZE))
                    .add(layout.createSequentialGroup()
                        .add(40, 40, 40)
                        .add(jScrollPane1, org.jdesktop.layout.GroupLayout.PREFERRED_SIZE, 406, org.jdesktop.layout.GroupLayout.PREFERRED_SIZE)))
                .addContainerGap(22, Short.MAX_VALUE))
        );
        layout.setVerticalGroup(
            layout.createParallelGroup(org.jdesktop.layout.GroupLayout.LEADING)
            .add(layout.createSequentialGroup()
                .add(19, 19, 19)
                .add(jButton1)
                .add(22, 22, 22)
                .add(jScrollPane1, org.jdesktop.layout.GroupLayout.PREFERRED_SIZE, 440, org.jdesktop.layout.GroupLayout.PREFERRED_SIZE)
                .addContainerGap(36, Short.MAX_VALUE))
        );
        pack();
    }// </editor-fold>//GEN-END:initComponents

    private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {//GEN-FIRST:event_jButton1ActionPerformed
        JFileChooser chooser = new JFileChooser();
        myFileFilter filter = new myFileFilter();

        chooser.setFileFilter(filter);
        int returnVal = chooser.showOpenDialog( null );
        if( returnVal == JFileChooser.APPROVE_OPTION ) {
            try {
                String filePath = chooser.getSelectedFile().getPath();
                BufferedReader inFile = new BufferedReader( new FileReader( filePath ) );

                String line = null;
                String data = "";
                while ( ( line = inFile.readLine() ) != null) {
                        data += line + "\r\n";
                }

                inFile.close();

                jTextArea1.setText(data);

            }
            catch ( Exception e ) {
                    System.out.println( e.getMessage() );
            }

        }
    }//GEN-LAST:event_jButton1ActionPerformed
    
    /**
     * @param args the command line arguments
     */
    public static void main(String args[]) {
        java.awt.EventQueue.invokeLater(new Runnable() {
            public void run() {
                new NewJFrame().setVisible(true);
            }
        });
    }
    
    // Variables declaration - do not modify//GEN-BEGIN:variables
    private javax.swing.JButton jButton1;
    private javax.swing.JScrollPane jScrollPane1;
    private javax.swing.JTextArea jTextArea1;
    // End of variables declaration//GEN-END:variables
    
}


class myFileFilter extends FileFilter {
    public boolean accept(File f) {
        if( f.isDirectory() ) {
            return true;
        }

        String s = f.getName();
        int x = s.lastIndexOf('.');
        if( x < 0 ) {
            return false;
        }

        String extention = s.substring(x+1).toLowerCase();
        if( extention.equals("txt") ) {
            return true;
        }
        if( extention.equals("csv") ) {
            return true;
        }

        return false;
    }
    public String getDescription() {
        return "テキスト"; 
    }
  
}