VB Memo/2010Tips のバックアップソース(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
バックアップを表示
VB Memo/2010Tips へ行く。
- 1 (2010-11-10 (水) 02:44:07)
- 2 (2010-11-10 (水) 05:21:32)

*Visual Basic 2010 Tips [#nde0a912]

RIGHT:更新日&lastmod();

** ファイル操作(CSVファイルの読み込み) [#p9608e12]

Publicクラスの外に以下のように宣言

 Imports Microsoft.VisualBasic.FileIO
 
 Public Class Form1 

実際のファイルの読み込み

        Dim i As Integer
        Dim Fname As String
 
        Dim tfp As New TextFieldParser(Fname)
        tfp.TextFieldType = FieldType.Delimited
        tfp.SetDelimiters(",")
 
        Dim sreadData As String()
        i = 0
        While tfp.EndOfData = False
            sreadData = tfp.ReadFields()
            ID(i) = sreadData(0)
            Data(i) = sreadData(1)
            i = i + 1
        End While

** 引数の取得 [#a789902a]


        Dim cmds() As String
        Dim i as integer
        
 '配列に引数を取得
        cmds = System.Environment.GetCommandLineArgs()
 
         Dim bcmd(UBound(cmds)) As String
 
 '順番にbcmd(0)には実行パスのフルパス bcmd(1)には第一引数、の順に入る
        For i = 0 To UBound(cmds)
 
            bcmd(i) = cmds(i)
        Next i

''VB6以前と互換的には''

        Dim sepa As String = " "
        Dim commands As String = Microsoft.VisualBasic.Command()
 commandsにはVB6のときのようにコマンドライン全部が入る
        Dim args() As String 
 
        args = commands.Split(sepa.ToCharArray)
 
 
        Dim bcmd(UBound(cmds)) As String
  
 '順番に bcmd(0)には第一引数、bcmd(1)には第２引数 の順に入る
 
        For i = 0 To UBound(args)
            bcmd(i) = args(i)
 
        Next

** オブジェクトにフォーカスをセット [#v8114f67]


** TextBoxでキーコード（CRをチェック) [#j396d9b9]

        If e.KeyChar = Chr(13) Then
            Label5.Text = Str(sum) & "円"
            sum = 0
            TextBox1.Text = ""
 
        End If