返回列表下一主題上一主題發帖

[發問] 關於批次創檔案及批次讀取發生詭異的事情

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-3-11 16:47 | 只看該作者

[發問] 關於批次創檔案及批次讀取發生詭異的事情

本帖最後由 mark15jill 於 2013-3-11 16:51 編輯

話說今天突然要用到批次創檔案，並在裡面加註字眼  然後選擇檔案讀取
於是呢小小測試了一下
赫然發現一件詭異的事情
照理來說  怎創檔案的，就應該怎讀取檔案

例如今天有10檔案路徑為  C:\tp\1.txt ~ C:\tp\10.txt
結果
創是創成功了
如下圖

但是呢判斷是判斷出來，卻變分段了....
但是程式碼內並沒有將路徑分段的符號.....

哪位大師能幫解答= =??
原始路徑
         w = File.CreateText("C:\tp\" & aks & ".txt")

程式碼內 Chr(10) 只有兩個地方
1.Button的Text
2.       '       MsgBox("C:\tp\" & "此數值為：" & Me.lis1.Text & ".txt" & Chr(10) & "存在")

以下為原始碼

'以下程式碼為 VB2010編寫，不確定VB6.0 是否適用...
'如果要用的話，直接將以下程式碼完整複製
'不用另外創立元件，已在程式碼內創立
Imports System.IO
Public Class Form1
Dim aks As String
Dim bu1 As New Button
Dim com1 As New ComboBox
Dim lis1, lis2 As New ListBox
Dim lab1 As New Label
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      With Me
         .Controls.Add(bu1)
         .Controls.Add(com1)
         .Controls.Add(lis1)
         .Controls.Add(lis2)
         .Controls.Add(lab1)
      End With
      With bu1
         .Width = 200
         .Height = 50
         .Location = New Point(Me.Width - 250, 10)
         .Text = "創立+寫入" & Chr(10) & "讀取+List列出"
      End With
      With lab1
         .AutoSize = False
         .Location = New Point(bu1.Location.X, (bu1.Location.Y + bu1.Height) + 10)
         .Width = bu1.Width
         .Height = bu1.Height
         .BackColor = Color.Salmon
         .BorderStyle = BorderStyle.Fixed3D
      End With
      With com1
         .Width = 150
         .Height = 50
         .Location = New Point(10, 10)
         .Visible = False
      End With
      With lis1
         .Location = New Point((com1.Width + com1.Location.X) + 10, 10)
         .Height = Me.Height - 100
         .Width = 200
      End With
      With lis2
         .Location = New Point((lis1.Width + lis1.Location.X) + 10, 10)
         .Height = Me.Height - 100
         .Width = 250
      End With
      AddHandler bu1.Click, AddressOf Button1_Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
      '若讀寫功能要分開讀區域要另外+
      'dim kk1 as string

      '寫區域
      Dim w As StreamWriter
      Dim kk1 As String
      For akk = 1 To 500
         aks = "此數值為：" & akk
         com1.Items.Add(aks)
         kk1 = aks
         w = File.CreateText("C:\tp\" & aks & ".txt")
         w.WriteLine(kk1)
         w.Close()
      Next

      '讀區域
      Dim r As StreamReader
      For akk = 1 To 500
         aks = "此數值為：" & akk
         kk1 = aks
         r = New StreamReader("C:\tp\" & aks & ".txt")
         Do While Not r.EndOfStream
            lis1.Items.Add(r.ReadToEnd)
         Loop
         r.Close()
      Next
      AddHandler lis1.SelectedIndexChanged, AddressOf ListBox1_SelectedIndexChanged

End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
      '讀區域
      Dim kee As String
      Dim r As StreamReader

      MsgBox(lis1.Text)
      Dim FileExists As Boolean
      'Dim filePath = "C:\tp\" & "此數值為：1" & ".txt"
      Dim filePath = "C:\tp\" & lis1.Text & ".txt"

      FileExists = My.Computer.FileSystem.FileExists(filePath)

      If FileExists = False Then

         lab1.Text = ("C:\tp\" & lis1.Text & ".txt" & "檔案不存在")
      Else
         lab1.Text = ("C:\tp\" & lis1.Text & ".txt" & "檔案存在")
      End If
      '       If Dir("C:\tp\此數值為：" & Me.lis1.Text & ".txt", FileAttribute.Directory) <> "" Then
      '       MsgBox("C:\tp\" & "此數值為：" & Me.lis1.Text & ".txt" & Chr(10) & "存在")
      '       End If
End Sub
End Class