_src/TestByFCBatAuto/TestScript/test/T_AutoDiff/PC_setting_default.vbs

   1 Option Explicit \r
   2 \r
   3 Dim  g_SrcPath\r
   4 Dim  g_PC_setting_default_Path\r
   5      g_PC_setting_default_Path = g_SrcPath\r
   6 \r
   7 \r
   8 Function  Setting_getEditorCmdLine(i)\r
   9   Dim  ret, paths\r
  10 \r
  11   If VarType( i ) = vbString Then\r
  12     ret = GetSearchOpenCmdLine( i )  '// i is PathAndName\r
  13   ElseIf i <> 3 Then\r
  14     paths = Array( _\r
  15       g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" ), _\r
  16       g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" ), _\r
  17       g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" ) )\r
  18     ret = GetExistPathInSetting( paths, "Setting_getEditorCmdLine" )\r
  19     If i = 1 Then  ret = """" + ret + """ ""%1"""\r
  20     If i = 2 Then\r
  21       If InStr( ret, "sakura.exe" ) > 0 Then\r
  22         ret = """" + ret + """ -Y=%d ""%1"""\r
  23       Else\r
  24         ret = """" + ret + """ ""%1"""\r
  25       End If\r
  26     End If\r
  27   ElseIf i = 3 Then\r
  28 '    ReDim  pathes(4)\r
  29 '    pathes(0) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\search_open\search_open.exe" )\r
  30 '    pathes(1) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\search_open\search_open\search_open.exe" )\r
  31 '    pathes(2) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" )\r
  32 '    pathes(3) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" )\r
  33 '    pathes(4) = g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" )\r
  34     paths = Array( _\r
  35       g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" ), _\r
  36       g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" ), _\r
  37       g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" ) )\r
  38     ret = GetExistPathInSetting( paths, "Setting_getEditorCmdLine" )\r
  39     If InStr( ret, "search_open.exe" ) > 0 Then\r
  40       ret = """" + ret + """ ""%1#%2"""\r
  41     Else\r
  42       ret = """" + ret + """ ""%1"""\r
  43     End If\r
  44   End If\r
  45   Setting_getEditorCmdLine = ret\r
  46 End Function\r
  47 \r
  48 \r
  49 Function  Setting_getDiffCmdLine(i)\r
  50   Dim  ret\r
  51   ReDim  pathes(1)\r
  52   pathes(0) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\Rekisa\Rekisa.exe" )\r
  53   pathes(1) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\Rekisa\Rekisa\Rekisa.exe" )\r
  54   ret = GetExistPathInSetting( pathes, "Setting_getDiffCmdLine" )\r
  55   If i = 2 Then  ret = """" + ret + """ ""%1"" ""%2"""\r
  56   If i = 3 Then  ret = """" + ret + """ ""%1"" ""%2"" ""%3"""\r
  57   Setting_getDiffCmdLine = ret\r
  58 End Function\r
  59 \r
  60 \r
  61 Sub  Setting_openFolder( Path )\r
  62   echo  ">Open folder """ + Path + """"\r
  63   If GetOSVersion = 6.0 Then\r
  64     echo "Open folder need Sleep on Vista..."\r
  65     Sleep(500)\r
  66   End If\r
  67 \r
  68   If g_fs.FolderExists( Path ) Then\r
  69     g_sh.Run "explorer """ + Path + """"\r
  70   ElseIf g_fs.FileExists( Path ) Then\r
  71     g_sh.Run "explorer /SELECT, """ + Path + """"\r
  72   Else\r
  73     Err.Raise  1,, """" + Path + """ \82ª\8c©\82Â\82©\82è\82Ü\82¹\82ñ\81B"\r
  74   End If\r
  75 \r
  76 End Sub\r
  77  \r