导入数字文件并执行performClick（）

问题描述：

Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles 
Button3.Click 

Dim openFileDialog1 As New OpenFileDialog() 
openFileDialog1.Filter = "Csv Files|*.csv|txt Files|*.txt" 
openFileDialog1.Title = "Select a File to import numbers" 
Dim convert As String = "" 


If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then 
Using SR As New System.IO.StreamReader(openFileDialog1.FileName) 
Dim All_lines As String = SR.ReadToEnd 
convert = ("Button_" & All_lines) 
'Label43.Text = convert 
Me.Button_(convert).PerformClick() 
End Using 'closes file 
End If 
End Sub

我有一个CSV与数字文件：导入数字文件并执行performClick（）

我想导入Csv或Txt文件与每个新行上的一个数字。我的程序有相应的按钮

我想读每一行，这一切会罚款我有按钮从Button_0到Button_36

所有我想要做的就是Me.Button_（进口数）.PerformClick （）所以每行我从文件我要创建

Me.Button_2.PerformClick() 
Me.Button_5.PerformClick() 
Me.Button_6.PerformClick() 
Me.Button_14.PerformClick() 
Me.Button_25.PerformClick() 
Me.Button_36.PerformClick() 

enter code here

我不知道这是可能的阅读谢谢

我想提及的是，文件中的每一个新行都有一个数字 – Vincent

答

我发现它自己我使用0-36固定电话号码，并通过各行数目作比较，并且该号码做一个点击相应的按钮这不正是我需要的

如果openFileDialog1.ShowDialog （）= System.Windows.Forms.DialogResult.OK然后

 Using SR As New System.IO.StreamReader(openFileDialog1.FileName) 

      Do While SR.Peek() > -1 

       Dim Line As Integer = 0 
       Line = SR.ReadLine() 

       If Line = 0 Then 
        Me.Button_0.PerformClick() 

       End If 

       If Line = 1 Then 
        Me.Button_1.PerformClick() 

       End If 

       If Line = 2 Then 
        Me.Button_2.PerformClick() 

       End If 

       If Line = 3 Then 
        Me.Button_3.PerformClick() 

       End If 

       If Line = 4 Then 
        Me.Button_4.PerformClick() 

       End If 
       If Line = 5 Then 
        Me.Button_5.PerformClick() 

       End If 
       If Line = 6 Then 
        Me.Button_6.PerformClick() 

       End If 
       If Line = 7 Then 
        Me.Button_7.PerformClick() 

       End If 
       If Line = 8 Then 
        Me.Button_8.PerformClick() 

       End If 
       If Line = 9 Then 
        Me.Button_9.PerformClick() 

       End If 
       If Line = 10 Then 
        Me.Button_10.PerformClick() 

       End If 
       If Line = 11 Then 
        Me.Button_11.PerformClick() 

       End If 
       If Line = 12 Then 
        Me.Button_12.PerformClick() 

       End If 
       If Line = 13 Then 
        Me.Button_13.PerformClick() 

       End If 
       If Line = 14 Then 
        Me.Button_14.PerformClick() 

       End If 
       If Line = 15 Then 
        Me.Button_15.PerformClick() 

       End If 
       If Line = 16 Then 
        Me.Button_16.PerformClick() 

       End If 
       If Line = 17 Then 
        Me.Button_17.PerformClick() 

       End If 
       If Line = 18 Then 
        Me.Button_18.PerformClick() 

       End If 
       If Line = 19 Then 
        Me.Button_19.PerformClick() 

       End If 
       If Line = 20 Then 
        Me.Button_20.PerformClick() 

       End If 
       If Line = 21 Then 
        Me.Button_21.PerformClick() 

       End If 
       If Line = 22 Then 
        Me.Button_22.PerformClick() 

       End If 
       If Line = 23 Then 
        Me.Button_23.PerformClick() 

       End If 
       If Line = 24 Then 
        Me.Button_24.PerformClick() 

       End If 
       If Line = 25 Then 
        Me.Button_25.PerformClick() 

       End If 
       If Line = 26 Then 
        Me.Button_26.PerformClick() 

       End If 
       If Line = 27 Then 
        Me.Button_27.PerformClick() 

       End If 
       If Line = 28 Then 
        Me.Button_28.PerformClick() 

       End If 
       If Line = 29 Then 
        Me.Button_29.PerformClick() 

       End If 
       If Line = 30 Then 
        Me.Button_30.PerformClick() 

       End If 
       If Line = 31 Then 
        Me.Button_31.PerformClick() 

       End If 
       If Line = 32 Then 
        Me.Button_32.PerformClick() 

       End If 
       If Line = 33 Then 
        Me.Button_33.PerformClick() 

       End If 
       If Line = 34 Then 
        Me.Button_34.PerformClick() 

       End If 
       If Line = 35 Then 
        Me.Button_35.PerformClick() 

       End If 
       If Line = 36 Then 
        Me.Button_36.PerformClick() 

       End If 


      Loop

导入数字文件并执行performClick（）

相关推荐