トップに関する質問 VB.NET ListViewで複数行の選択ができない。複数行選択できるようにしたい。

編集履歴

質問編集履歴

修正

2020/03/12 02:57

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,4 +1,4 @@
-現在一行分のファイルしか選択できなく複数行選択でき、書き込み(保存)したいのですが、　どこを直せばいいかわかりません。(Formアプリケーション)
+現在一行分のファイルしか選択できなく複数行選択でき、書き込み(保存)したいのですが、わかりません。
 読み込んできたファイルを開きその読み込んだファイルを複数行指定して書き込み(保存)したい。
@@ -13,123 +13,4 @@
 ○○○○　　　　　○○○○○○○○
 .　　　　　　　.
 .　　　　　　　.
-.             .
+.             .
-読み込みボタン　　　　書き込みボタン
-コードーーーーーーー
-Imports System.IO
-Public Class Form_Main2_12b
-    'リストの宣言
-    Private lists As List(Of String()) = New List(Of String())()
-    '読み込みボタン
-    Private Sub Button_Read_Click(sender As Object, e As EventArgs) Handles Button_Read.Click
-        'データを開く
-        Me.OpenFileDialog.ShowDialog()
-    End Sub
-    'OpenFileDialog 読み込みボタンが押されてからの処理
-    Private Sub OpenFileDialog_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog.FileOk
-        readData(Me.OpenFileDialog.FileName)
-        displayData()
-    End Sub
-    'ReadData作成
-    Private Sub readData(ByVal filePath As String)
-        Me.lists.Clear()
-        'StreamWriterの宣言とファイルを開く
-        Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)
-        'Listに読み込んだデータを格納する
-        While -1 < sr.Peek()
-            Dim allData As String() = sr.ReadLine().Split(","c)
-            Me.lists.Add(allData)
-        End While
-        'ファイルを閉じる
-        sr.Close()
-    End Sub
-    'displayData作成
-    Private Sub displayData()
-        Me.ListView_Display.Items.Clear()
-        '要素の数を取得
-        For i As Integer = 0 To Me.lists.Count - 1
-            Dim list As String() = Me.lists(i)
-            '郵便番号を代入し置換
-            Dim postal As String = list(2)
-            postal = postal.Replace("""", String.Empty)
-            Dim item As ListViewItem = New ListViewItem(postal)
-            '住所の代入
-            Dim adress1 As String = list(6)
-            adress1 = adress1.Replace("""", String.Empty)
-            Dim adress2 As String = list(7)
-            adress2 = adress1.Replace("""", String.Empty)
-            Dim adress3 As String = list(8)
-            adress3 = adress3.Replace("""", String.Empty)
-            'ListViewItemにアドレス追加
-            item.SubItems.Add(adress1 + adress2 + adress3)
-            'リストビュー画面に追加
-            Me.ListView_Display.Items.Add(item)
-        Next i
-    End Sub
-    '書き込みボタン
-    Private Sub Button_Write_Click(sender As Object, e As EventArgs) Handles Button_Write.Click
-        'データを開く
-        Me.SaveFileDialog.ShowDialog()
-    End Sub
-    'SaveFileDialog 書き込みボタンが押されてからの処理
-    Private Sub SaveFileDialog_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog.FileOk
-        'StreamWriterの宣言とファイルを開く
-        Dim sw As StreamWriter = New StreamWriter(Me.SaveFileDialog.FileName, False, System.Text.Encoding.Default)
-        '選択された項目を格納
-        For i As Integer = 0 To Me.ListView_Display.SelectedIndices.Count - 1
-            Dim index As Integer = Me.ListView_Display.SelectedIndices(i)
-            Dim list As String() = Me.lists(index)
-            Dim postal As String = list(2)
-            Dim adress1 As String = list(6)
-            adress1 = adress1.Replace("""", String.Empty)
-            Dim adress2 As String = list(7)
-            adress2 = adress2.Replace("""", String.Empty)
-            Dim adress3 As String = list(8)
-            adress3 = adress3.Replace("""", String.Empty)
-            'データを書き込む
-            sw.WriteLine(postal + "," + """" + adress1 + adress2 + adress3 + """")
-        Next
-        '閉じる
-        sw.Close()
-    End Sub
-End Class

修正

2020/03/12 02:57

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,6 +1,6 @@
-現在一行分のファイルしか選択できなく複数行選択でき、書き込み(保存)したいのですが、　どこを直せばいいかわかりません。
+現在一行分のファイルしか選択できなく複数行選択でき、書き込み(保存)したいのですが、　どこを直せばいいかわかりません。(Formアプリケーション)
-読み込みからファイルを開きその読み込んだファイルを複数行(ドラッグ)して書き込み(保存)したい。
+読み込んできたファイルを開きその読み込んだファイルを複数行指定して書き込み(保存)したい。
 例
 郵便番号　　　住所

修正

2020/03/12 02:40

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,6 +1,6 @@
 現在一行分のファイルしか選択できなく複数行選択でき、書き込み(保存)したいのですが、　どこを直せばいいかわかりません。
-読み込みからファイルを開きその読み込んだファイルを複数行(スラッグ)して書き込み(保存)したい。
+読み込みからファイルを開きその読み込んだファイルを複数行(ドラッグ)して書き込み(保存)したい。
 例
 郵便番号　　　住所

修正

2020/03/12 02:32

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,5 +1,4 @@
 現在一行分のファイルしか選択できなく複数行選択でき、書き込み(保存)したいのですが、　どこを直せばいいかわかりません。
-SaveFileDialog メソッドの中身のどこをどのようにしたらいいか助けて頂けると助かります。
 読み込みからファイルを開きその読み込んだファイルを複数行(スラッグ)して書き込み(保存)したい。
@@ -12,11 +11,14 @@
 ○○○○　　　　　○○○○○○○○
 ○○○○　　　　　○○○○○○○○
 ○○○○　　　　　○○○○○○○○
+.　　　　　　　.
+.　　　　　　　.
+.             .
+読み込みボタン　　　　書き込みボタン
 コードーーーーーーー
 Imports System.IO

修正

2020/03/12 02:31

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -3,10 +3,22 @@
 読み込みからファイルを開きその読み込んだファイルを複数行(スラッグ)して書き込み(保存)したい。
+例
+郵便番号　　　住所
+○○○○　　　　　○○○○○○○○　一行しか選択現状できなく、2行3行と選択できるようにし指定した場所を保存したい。
+○○○○　　　　　○○○○○○○○
+○○○○　　　　　○○○○○○○○
+○○○○　　　　　○○○○○○○○
+○○○○　　　　　○○○○○○○○
+○○○○　　　　　○○○○○○○○
+○○○○　　　　　○○○○○○○○
-読み込んのコードは省略
+コードーーーーーーー
 Imports System.IO
 Public Class Form_Main2_12b
@@ -14,7 +26,74 @@
     'リストの宣言
     Private lists As List(Of String()) = New List(Of String())()
+    '読み込みボタン
+    Private Sub Button_Read_Click(sender As Object, e As EventArgs) Handles Button_Read.Click
+        'データを開く
+        Me.OpenFileDialog.ShowDialog()
+    End Sub
+    'OpenFileDialog 読み込みボタンが押されてからの処理
+    Private Sub OpenFileDialog_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog.FileOk
+        readData(Me.OpenFileDialog.FileName)
+        displayData()
+    End Sub
+    'ReadData作成
+    Private Sub readData(ByVal filePath As String)
+        Me.lists.Clear()
+        'StreamWriterの宣言とファイルを開く
+        Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)
+        'Listに読み込んだデータを格納する
+        While -1 < sr.Peek()
+            Dim allData As String() = sr.ReadLine().Split(","c)
+            Me.lists.Add(allData)
+        End While
+        'ファイルを閉じる
+        sr.Close()
+    End Sub
+    'displayData作成
+    Private Sub displayData()
+        Me.ListView_Display.Items.Clear()
+        '要素の数を取得
+        For i As Integer = 0 To Me.lists.Count - 1
+            Dim list As String() = Me.lists(i)
+            '郵便番号を代入し置換
+            Dim postal As String = list(2)
+            postal = postal.Replace("""", String.Empty)
+            Dim item As ListViewItem = New ListViewItem(postal)
+            '住所の代入
+            Dim adress1 As String = list(6)
+            adress1 = adress1.Replace("""", String.Empty)
+            Dim adress2 As String = list(7)
+            adress2 = adress1.Replace("""", String.Empty)
+            Dim adress3 As String = list(8)
+            adress3 = adress3.Replace("""", String.Empty)
+            'ListViewItemにアドレス追加
+            item.SubItems.Add(adress1 + adress2 + adress3)
+            'リストビュー画面に追加
+            Me.ListView_Display.Items.Add(item)
+        Next i
+    End Sub
     '書き込みボタン
     Private Sub Button_Write_Click(sender As Object, e As EventArgs) Handles Button_Write.Click
@@ -30,13 +109,11 @@
         Dim sw As StreamWriter = New StreamWriter(Me.SaveFileDialog.FileName, False, System.Text.Encoding.Default)
         '選択された項目を格納
-**ここをどのように修正すればいいでしょうか？
         For i As Integer = 0 To Me.ListView_Display.SelectedIndices.Count - 1
             Dim index As Integer = Me.ListView_Display.SelectedIndices(i)
             Dim list As String() = Me.lists(index)
             Dim postal As String = list(2)
-**
             Dim adress1 As String = list(6)
             adress1 = adress1.Replace("""", String.Empty)
             Dim adress2 As String = list(7)

修正

2020/03/12 02:27

投稿

fffu8

スコア37

title CHANGED Viewed

	@@ -1,1 +1,1 @@
1	- VB.NET ~~ファイル書き込み~~で~~指定した~~行(複数~~)を書~~き込みたい。
1	+ VB.NET ListViewで複数行の選択ができない。複数行選択できるようにしたい。

body CHANGED Viewed

File without changes

修正

2020/03/12 02:22

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,4 +1,4 @@
-現在一行分のファイルした選択できなく複数選択でき、書き込みしたいのですが、どこを直せばいいかわかりません。
+現在一行分のファイルしか選択できなく複数行選択でき、書き込み(保存)したいのですが、　どこを直せばいいかわかりません。
 SaveFileDialog メソッドの中身のどこをどのようにしたらいいか助けて頂けると助かります。
 読み込みからファイルを開きその読み込んだファイルを複数行(スラッグ)して書き込み(保存)したい。

修正

2020/03/12 02:16

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,7 +1,7 @@
 現在一行分のファイルした選択できなく複数選択でき、書き込みしたいのですが、どこを直せばいいかわかりません。
 SaveFileDialog メソッドの中身のどこをどのようにしたらいいか助けて頂けると助かります。
-読み込みからファイルを開きその読み込んだファイルを複数行を指定して書き込み(保存)したい。
+読み込みからファイルを開きその読み込んだファイルを複数行(スラッグ)して書き込み(保存)したい。
 読み込んのコードは省略
@@ -31,12 +31,12 @@
         '選択された項目を格納
-ここをどのように修正すればいいでしょうか？
+**ここをどのように修正すればいいでしょうか？
         For i As Integer = 0 To Me.ListView_Display.SelectedIndices.Count - 1
             Dim index As Integer = Me.ListView_Display.SelectedIndices(i)
             Dim list As String() = Me.lists(index)
             Dim postal As String = list(2)
+**
             Dim adress1 As String = list(6)
             adress1 = adress1.Replace("""", String.Empty)
             Dim adress2 As String = list(7)

修正

2020/03/12 02:15

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,9 +1,12 @@
 現在一行分のファイルした選択できなく複数選択でき、書き込みしたいのですが、どこを直せばいいかわかりません。
 SaveFileDialog メソッドの中身のどこをどのようにしたらいいか助けて頂けると助かります。
+読み込みからファイルを開きその読み込んだファイルを複数行を指定して書き込み(保存)したい。
-コード
+読み込んのコードは省略
 Imports System.IO
 Public Class Form_Main2_12b
@@ -11,74 +14,7 @@
     'リストの宣言
     Private lists As List(Of String()) = New List(Of String())()
-    '読み込みボタン
-    Private Sub Button_Read_Click(sender As Object, e As EventArgs) Handles Button_Read.Click
-        'データを開く
-        Me.OpenFileDialog.ShowDialog()
-    End Sub
-    'OpenFileDialog 読み込みボタンが押されてからの処理
-    Private Sub OpenFileDialog_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog.FileOk
-        readData(Me.OpenFileDialog.FileName)
-        displayData()
-    End Sub
-    'ReadData作成
-    Private Sub readData(ByVal filePath As String)
-        Me.lists.Clear()
-        'StreamWriterの宣言とファイルを開く
-        Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)
-        'Listに読み込んだデータを格納する
-        While -1 < sr.Peek()
-            Dim allData As String() = sr.ReadLine().Split(","c)
-            Me.lists.Add(allData)
-        End While
-        'ファイルを閉じる
-        sr.Close()
-    End Sub
-    'displayData作成
-    Private Sub displayData()
-        Me.ListView_Display.Items.Clear()
-        '要素の数を取得
-        For i As Integer = 0 To Me.lists.Count - 1
-            Dim list As String() = Me.lists(i)
-            '郵便番号を代入し置換
-            Dim postal As String = list(2)
-            postal = postal.Replace("""", String.Empty)
-            Dim item As ListViewItem = New ListViewItem(postal)
-            '住所の代入
-            Dim adress1 As String = list(6)
-            adress1 = adress1.Replace("""", String.Empty)
-            Dim adress2 As String = list(7)
-            adress2 = adress1.Replace("""", String.Empty)
-            Dim adress3 As String = list(8)
-            adress3 = adress3.Replace("""", String.Empty)
-            'ListViewItemにアドレス追加
-            item.SubItems.Add(adress1 + adress2 + adress3)
-            'リストビュー画面に追加
-            Me.ListView_Display.Items.Add(item)
-        Next i
-    End Sub
     '書き込みボタン
     Private Sub Button_Write_Click(sender As Object, e As EventArgs) Handles Button_Write.Click
@@ -94,6 +30,8 @@
         Dim sw As StreamWriter = New StreamWriter(Me.SaveFileDialog.FileName, False, System.Text.Encoding.Default)
         '選択された項目を格納
+ここをどのように修正すればいいでしょうか？
         For i As Integer = 0 To Me.ListView_Display.SelectedIndices.Count - 1
             Dim index As Integer = Me.ListView_Display.SelectedIndices(i)
             Dim list As String() = Me.lists(index)

修正

2020/03/12 02:03

投稿

fffu8

スコア37

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -1,4 +1,5 @@
 現在一行分のファイルした選択できなく複数選択でき、書き込みしたいのですが、どこを直せばいいかわかりません。
+SaveFileDialog メソッドの中身のどこをどのようにしたらいいか助けて頂けると助かります。
 コード