Strict Standards: Declaration of action_plugin_blog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/blog/action.php on line 13

Strict Standards: Declaration of action_plugin_indexmenu::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/indexmenu/action.php on line 13

Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/importoldindex/action.php on line 8

Strict Standards: Declaration of action_plugin_include::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/include/action.php on line 19

Deprecated: Assigning the return value of new by reference is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/parserutils.php on line 208

Deprecated: Assigning the return value of new by reference is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/parserutils.php on line 211

Deprecated: Assigning the return value of new by reference is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/parserutils.php on line 421

Deprecated: Assigning the return value of new by reference is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/parserutils.php on line 594

Strict Standards: Declaration of cache_instructions::retrieveCache() should be compatible with cache::retrieveCache($clean = true) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/cache.php on line 291

Deprecated: Function split() is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/auth.php on line 154

Strict Standards: Only variables should be passed by reference in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/doku.php on line 73
2日目 [開発チーム]
Public Function LoadData()
    Dim OpenFileName As String
    OpenFileName = GetFileName
    If OpenFileName = "False" Then
        Exit Function
    End If
    ReadFile (OpenFileName)
End Function
 
Public Function GetFileName() As String
    Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")
    If OpenFileName <> "False" Then
        GetFileName = OpenFileName
    Else
        GetFileName = "False"
    End If
End Function
 
Public Function ReadFile(OpenFileName)
   Dim fno As Long
   Dim rec As String
 
    fno = FreeFile
    Open OpenFileName For Input As fno
    Do Until EOF(fno)
        Line Input #fno, rec
        s = GetStrItem(rec, False)
        Do Until s = Chr(0)
            MsgBox s
          s = GetStrItem(rec, True)
        Loop
    Loop
    Close fno
End Function
 
Public Function GetStrItem(rec As String, init As Boolean) As String
 
  Const STR_INIT = False
  Const STR_NEXT = True
  Static start As Long
  Static rln As Long
  Dim str As Long
 
'** 初期化
  If init <> STR_NEXT Then
    start = 1
    rln = Len(rec)
  End If
 
'** 左辺空白スキップ
  For start = start To rln
    If Mid(rec, start, 1) <> " " Then Exit For
  Next
 
'** データ項目なし
  If start > rln + 1 Then
    GetStrItem = Chr(0)
    Exit Function
  End If
 
'** 空項目
  If start > rln Then
    start = start + 1
    GetStrItem = ""
    Exit Function
  End If
  If Mid(rec, start, 1) = "," Then
    start = start + 1
    GetStrItem = ""
    Exit Function
  End If
 
'** 引用句 ( chr(&H22) = 『"』)
  If Mid(rec, start, 1) = Chr(&H22) Then
    start = start + 1
    str = start
    For start = start To rln
      If Mid(rec, start, 1) = Chr(&H22) Then Exit For
    Next
    If start > rln Then
      GetStrItem = Mid(rec, str)
    Else
      GetStrItem = Mid(rec, str, start - str)
      start = start + 1
      For start = start To rln
        If Mid(rec, start, 1) = "," Then Exit For
      Next
    End If
    start = start + 1
    Exit Function
  End If
 
'** データ項目
  str = start
  For start = start To rln
    If Mid(rec, start, 1) = "," Then Exit For
  Next
  If start > rln Then
    GetStrItem = RTrim(Mid(rec, str))
  Else
    GetStrItem = RTrim(Mid(rec, str, start - str))
  End If
  start = start + 1
 
End Function
2日目.txt · 最終更新: 2010/07/27 15:47 (外部編集)
www.chimeric.de Creative Commons License Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0

Strict Standards: Only variables should be passed by reference in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/doku.php on line 81