' ダイアログボックス表示 Private Sub DialogButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DialogButton.Click With MyOpenFileDialog .CheckFileExists = True .RestoreDirectory = True .FilterIndex = 2 If .ShowDialog() = DialogResult.OK Then Dim MyStreamReader As New System.IO.StreamReader(.FileName) TextBoxDirectory.Text = .FileName MyStreamReader.Close() S_TextBoxDirectoryLine("1 .filenane", MyDirectory & "FileNameJis.txt", .FileName, True) S_TextBoxDirectoryLine("2 .filenane", MyDirectory & "FileNameUni.txt", .FileName, False) End If End With End Sub ' ダイアログボックスの結果を出力するサブルーチン。 Private Sub S_TextBoxDirectoryLine(ByVal TitleString As String, ByVal DirectoryString As String, ByVal ThisFileNameString As String, ByVal EncodeJisBoolean As Boolean) If System.IO.File.Exists(DirectoryString) Then System.IO.File.Delete(DirectoryString) End If Dim objTxt As System.IO.FileStream = System.IO.File.OpenWrite(DirectoryString) Dim objStw As System.IO.StreamWriter = New System.IO.StreamWriter(objTxt) objStw.BaseStream.Seek(0, IO.SeekOrigin.Begin) If EncodeJisBoolean = True Then objStw.WriteLine(TitleString & " の情報 Shift-JIS です。" & Chr(10) & Chr(10) & ThisFileNameString, System.Text.Encoding.GetEncoding("Shift-JIS")) Else objStw.WriteLine(TitleString & " の情報 Uni-Code です。" & Chr(10) & Chr(10) & ThisFileNameString) End If objStw.Flush() objStw.Close() System.Diagnostics.Process.Start(DirectoryString) End Sub
> ' ダイアログボックス表示 > Private Sub DialogButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DialogButton.Click > With MyOpenFileDialog > .CheckFileExists = True > .RestoreDirectory = True > .FilterIndex = 2 > If .ShowDialog() = DialogResult.OK Then > Dim MyStreamReader As New System.IO.StreamReader(.FileName) > TextBoxDirectory.Text = .FileName > MyStreamReader.Close()
> S_TextBoxDirectoryLine("1 .filenane", MyDirectory & "FileNameJis.txt", .FileName, True) > S_TextBoxDirectoryLine("2 .filenane", MyDirectory & "FileNameUni.txt", .FileName, False) > End If > End With > End Sub > ' ダイアログボックスの結果を出力するサブルーチン。
この説明と関数の内容が一致していないので、何をしたいのかわかりません。
> Private Sub S_TextBoxDirectoryLine(ByVal TitleString As String, ByVal DirectoryString As String, ByVal ThisFileNameString As String, ByVal EncodeJisBoolean As Boolean) > If System.IO.File.Exists(DirectoryString) Then > System.IO.File.Delete(DirectoryString) > End If > Dim objTxt As System.IO.FileStream = System.IO.File.OpenWrite(DirectoryString) > Dim objStw As System.IO.StreamWriter = New System.IO.StreamWriter(objTxt)
StreamWriterのコンストラクタのヘルプをご覧下さい。
> objStw.BaseStream.Seek(0, IO.SeekOrigin.Begin)
何のためのSeekでしょう？
> If EncodeJisBoolean = True Then > objStw.WriteLine(TitleString & " の情報 Shift-JIS です。" & Chr(10) & Chr(10) & ThisFileNameString, System.Text.Encoding.GetEncoding("Shift-JIS"))
DOBON.NETプログラミング掲示板過去ログ
分類:[.NET]
お世話になります。
Win2000, Microsoft.Net Framework 1.1, VB.Net にて、データベースアプリケーションを作成しています。
配布先の WinMe マシンでオープンファイルダイアログで、取得したディレクトリが、
指定したテキストボックスに正しく表示されないという不具合が発生しており、
解決の方法が見出せないのでこちらにメールいたしました。
(手元の Win2000, WinXP HomeEdition では問題なく動作しております)
配布先と同じ環境が作れず、また、直接伺えない状況のため、
テストコードを送り、実行してもらって結果を受け取って対策を考えるということをしています。
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
結果1：
1 .filenane 縺ョ諠・ア Shift-JIS 縺ァ縺吶・
C:\WINDOWS\・・セ橸スス・ク・・スッ・鯉セ歃test2\sample1.txt
2 .filenane 縺ョ諠・ア Uni-Code 縺ァ縺吶・
C:\WINDOWS\・・セ橸スス・ク・・スッ・鯉セ歃test2\sample1.txt
--- --- --- --- --- --- --- --- --- --- ---
結果2：
1 .filenane 縺ョ諠・ア Shift-JIS 縺ァ縺吶・
C:\test3\sample1.txt
2 .filenane 縺ョ諠・ア Uni-Code 縺ァ縺吶・
C:\test3\sample1.txt
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
上はユーザーのデスクトップにあるファイルを選択してもらった結果、
下はCドライブ直下にあるファイルを選択してもらった結果です。
どういった問題が考えられるのでしょうか？
とりあえず、テキストボックスへの出力時に文字化けしていることが
解決のヒントになると思うのですが...。
ご指導よろしくお願いいたします。
配布先には .NetFramework 1.- は入っている、とのことです。
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
尚、配布先で実行してもらったのは、以下のコードです。
変数は、MyOpenFileDialog は OpenFileDialog
MyDirectory は テキストファイルファイル出力先ディレクトリ、
TextBoxDirectory が当該テキストボックスです。
' ダイアログボックス表示
Private Sub DialogButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DialogButton.Click
With MyOpenFileDialog
.CheckFileExists = True
.RestoreDirectory = True
.FilterIndex = 2
If .ShowDialog() = DialogResult.OK Then
Dim MyStreamReader As New System.IO.StreamReader(.FileName)
TextBoxDirectory.Text = .FileName
MyStreamReader.Close()
S_TextBoxDirectoryLine("1 .filenane", MyDirectory & "FileNameJis.txt", .FileName, True)
S_TextBoxDirectoryLine("2 .filenane", MyDirectory & "FileNameUni.txt", .FileName, False)
End If
End With
End Sub
' ダイアログボックスの結果を出力するサブルーチン。
Private Sub S_TextBoxDirectoryLine(ByVal TitleString As String, ByVal DirectoryString As String, ByVal ThisFileNameString As String, ByVal EncodeJisBoolean As Boolean)
If System.IO.File.Exists(DirectoryString) Then
System.IO.File.Delete(DirectoryString)
End If
Dim objTxt As System.IO.FileStream = System.IO.File.OpenWrite(DirectoryString)
Dim objStw As System.IO.StreamWriter = New System.IO.StreamWriter(objTxt)
objStw.BaseStream.Seek(0, IO.SeekOrigin.Begin)
If EncodeJisBoolean = True Then
objStw.WriteLine(TitleString & " の情報 Shift-JIS です。" & Chr(10) & Chr(10) & ThisFileNameString, System.Text.Encoding.GetEncoding("Shift-JIS"))
Else
objStw.WriteLine(TitleString & " の情報 Uni-Code です。" & Chr(10) & Chr(10) & ThisFileNameString)
End If
objStw.Flush()
objStw.Close()
System.Diagnostics.Process.Start(DirectoryString)
End Sub