6月18日設置
Posted by No Name Ninja - 2007.07.22,Sun
Dim y As String Dim z As String y = "abcdefg" z = y.Substring(0, 3) 'abc
PR
Posted by No Name Ninja - 2007.07.22,Sun
Dim i As Integer
Dim x As String
i = x.LastIndexOf("\")
Posted by No Name Ninja - 2007.07.22,Sun
Sub Main(ByVal strArgs() As String) Dim s As String Dim w As String For Each s In strArgs w = s Next End Sub
Posted by No Name Ninja - 2007.07.22,Sun
Private Function hogeDir() As Boolean Dim strPath As String strPath = "c:\hoge\" If System.IO.Directory.Exists(strPath) = False Then System.IO.Directory.CreateDirectory(strPath) End If End Functionよく使いそう。
Posted by No Name Ninja - 2007.07.22,Sun
Private Function hogeHashTable() As Boolean Dim ht As Hashtable Dim strKey As String Dim strArray As String() Dim strVal As String ht = New Hashtable strKey = "01" strArray = New String() {"japan", "nippon"} ht.Add(strKey, strArray) strKey = "02" strArray = New String() {"pen", "enpitsu"} ht.Add(strKey, strArray) If ht("01") Is Nothing Then Else strVal = CType(ht("01"), Array)(0) 'japan strVal = CType(ht("01"), Array)(1) 'nippon End If If ht("02") Is Nothing Then Else strVal = CType(ht("02"), Array)(0) 'pen strVal = CType(ht("02"), Array)(1) 'enpitsu End If End Function連想配列。結構使える。
カレンダー
カテゴリー
フリーエリア
最新コメント
[05/16 backlink service]
最新記事
(09/18)
(11/17)
(10/03)
(07/21)
(07/20)
最新トラックバック
プロフィール
HN:
No Name Ninja
性別:
非公開
ブログ内検索
最古記事
カウンター
アクセス解析
Template by mavericyard*
Powered by "Samurai Factory"
Powered by "Samurai Factory"