Visual Basicでのテキストファイルの反復

Question

私はテキストファイルから読み込み、各行を配列に変換するプログラムを作っています。 1行につき1行ずつ送信します。これは2010 Visual Basicです。 一番早く私が送ってきたのは、一晩中仕事をしていて、ゆっくりと破壊しています。 理想的には、ボタン1をクリックしてLocationTBのファイルから配列を入力し、タイマーを開始します。タイマーは、GapTB間隔で一度に回線を送信する必要があります。

Public Class Form1 
Public TextLine As String 
Public MyFileName As String 
Public MyNewLine(1000) As String 
Private Property z As Integer 
Private Property objReader As Object 


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

    If RadioButton2.Checked = True Then 
     Dim Textline As String = "" 
     Dim FILE_NAME As String = LocationTB.Text 
     Dim objReader As New System.IO.StreamReader(FILE_NAME) 
     MyFileName = LocationTB.Text 
     FileOpen(1, MyFileName, OpenMode.Input, OpenAccess.Read, OpenShare.Shared) 
     z = 0 

     Do Until EOF(1) 
      MyNewLine(z) = LineInput(1) 
      z = z + 1 
     Loop 

     FileClose(1) 
    End If 

    Timer1.Interval = GapTB.Text 
    Timer1.Enabled = True 

End Sub 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    If RadioButton1.Checked = True Then 
     AppActivate(Hook.Text) 
     SendKeys.Send(SimpleTB.Text) 
     SendKeys.Send((Chr(13))) 

    ElseIf RadioButton2.Checked = True Then 
     For Each 
      TextLine = TextLine & objReader.ReadLine 
      AppActivate(Hook.Text) 
      SendKeys.Send(TextLine) 
      SendKeys.Send((Chr(13))) 
     Next 

    Else 

      MsgBox("File Does Not Exist") 

    End If 


End Sub 

Answer 1

これはあなたが探しているものですか？ ファイルの内容（この例では "C：\ mark.txt"）をVisual Studioの出力ウィンドウに書き込みます。

Public Class Form1 
    Private myTimer As Timer 

    Private lines As String() 
    Private currentLine As Integer 

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

     lines = IO.File.ReadAllLines("C:\mark.txt") 
     currentLine = 0 

     myTimer = New Timer() 

     AddHandler myTimer.Tick, AddressOf myTimer_Tick 

     myTimer.Interval = 1000 
     myTimer.Enabled = True 
    End Sub 

    Private Sub myTimer_Tick(sender As Object, e As EventArgs) 
     If currentLine < lines.Count Then 
      Dim lineToSend As String = lines(currentLine) 
      Debug.Print(lineToSend) 
      currentLine += 1 
     Else 
      myTimer.Enabled = False 
     End If 
    End Sub 
End Class 

---

警告 上記のコードは、スケーラブルではありません。 SUREの場合、ファイルは常に小さくなります（つまり、彼らはということはありません）。です。

これをスケーラブルにするには、ファイルを開いたままにして、必要に応じて各行を読み込み、ファイルの内容全体を一度に読み込む必要があります。

Answer 2

私は自分自身を開始したアプリケーションにそれを行う方法を知っている：ここでは電卓を動作させるためのコードです：

Dim ProcID As Integer 
    ' Start the Calculator application, and store the process id. 
    ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus) 
    ' Activate the Calculator application. 
    AppActivate(ProcID) 
    ' Send the keystrokes to the Calculator application. 
    My.Computer.Keyboard.SendKeys("22", True) 
    My.Computer.Keyboard.SendKeys("*", True) 
    My.Computer.Keyboard.SendKeys("44", True) 
    My.Computer.Keyboard.SendKeys("=", True) 
    ' The result is 22 * 44 = 968. 

：AppActivateのは、アクティブにするために、フォームの正確なタイトルを知っている必要があります。知られていない場合は、プロセスを繰り返し実行して自分の場所を特定します。タイトルが正しく指定されていれば、それはうまくいくはずです