_src/Test/vbslib_test/T_UI/T_Open_Data/OverDefine1.vbs

   1 Function  Setting_getEditorCmdLine(i) \r
   2   Dim  ret, paths\r
   3 \r
   4   If VarType( i ) = vbString Then\r
   5     ret = GetSearchOpenCmdLine( i )\r
   6   ElseIf i = 0 Then\r
   7     ret =   "C:\Program Files\sakura\sakura.exe"\r
   8   ElseIf i = 1 Then\r
   9     ret = """C:\Program Files\sakura\sakura.exe"" ""%1"""\r
  10   ElseIf i = 2 Then\r
  11     ret = """C:\Program Files\sakura\sakura.exe"" -Y=%d ""%1"""\r
  12   ElseIf i = 3 Then\r
  13     ret = """C:\Program Files\sakura\sakura.exe"" ""%1"""\r
  14   End If\r
  15   Setting_getEditorCmdLine = ret\r
  16 End Function\r
  17 \r
  18  \r