インストールされているソフトウェアのバッチファイル

Question

私はバッチを少しだけ学んだばかりです。私は恥知らずにこのコードをウェブサイトから持ち上げたことに同意します。これは、インストールされているソフトウェアのリストを表示するためのコードですが、バージョンとソフトウェアは異なる行に表示されていますが、問題は1つだけです。どのように私は同じ行に両方を持つことができますか？

例：バッチを実行すると、バージョンが最初に表示され、次にソフトウェアが表示されます。

ご協力いただければ幸いです。前もって感謝します。

@echo off 
If Exist C:\Final.txt Del C:\Final.txt 
regedit /e C:\regexport.txt "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall" 
regedit /e C:\regexport2.txt "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall" 
regedit /e C:\regexport3.txt "HKEY_LOCAL_MACHINE\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall" 
find "DisplayName" C:\regexport.txt > C:\regprogs.txt 
find "DisplayName" C:\regexport2.txt >> C:\regprogs.txt 
find "DisplayName" C:\regexport3.txt >> C:\regprogs.txt 
for /f "tokens=2 delims==" %%a in (C:\regprogs.txt) do echo %%~a >> C:\installedprogs.txt 

find "DisplayVersion" C:\regexport.txt > C:\regprogs.txt 
find "DisplayVersion" C:\regexport2.txt >> C:\regprogs.txt 
find "DisplayVersion" C:\regexport3.txt >> C:\regprogs.txt 
for /f "tokens=2 delims==" %%a in (C:\regprogs.txt) do echo %%~a >> C:\installedprogs.txt 

del C:\regexport.txt 
del C:\regexport2.txt 
del C:\regexport3.txt 
del C:\regprogs.txt 
sort C:\installedprogs.txt > C:\alles.txt 
del C:\installedprogs.txt 


:: script om alle dubbele lijnen eruit te gooien 
REM -- Prepare the Command Processor -- 
SETLOCAL ENABLEEXTENSIONS 
SETLOCAL EnABLEDELAYEDEXPANSION 

REM -- Prepare the Prompt for easy debugging -- restore with prompt=$p$g 
prompt=$g 

rem The finished program will remove duplicates lines 

:START 
set "_duplicates=TRUE" 

set "_infile=C:\alles.txt" 
set      "_oldstr=the" 
set         "_newstr=and" 

call :BATCHSUBSTITUTE %_infile% %_oldstr% %_newstr% 
pause 
goto :SHOWINTELL 
goto :eof 


:BATCHSUBSTITUTE 

type nul> %TEMP%.\TEMP.DAT 

if "%~2"=="" findstr "^::" "%~f0"&GOTO:EOF 
for /f "tokens=1,* delims=]" %%A in ('"type %1|find /n /v """') do (
    set "_line=%%B" 
    if defined _line (
     if "%_duplicates%"=="TRUE" (
      set "_unconverted=!_line!" 
      set "_converted=!_line:"=""!" 
      FIND "!_converted!" %TEMP%.\TEMP.DAT > nul 
      if errorlevel==1 (
       >> %TEMP%.\TEMP.DAT echo !_unconverted! 
      ) 
     ) 
    ) ELSE (
     echo(>> %TEMP%.\TEMP.DAT 
    ) 
) 
goto :eof 


:SHOWINTELL 
@echo A|move %TEMP%.\TEMP.DAT C:\allesnietdubbel.txt 
del C:\alles.txt 

::Alle lijnen weggooien waar 'KB' in voor komt 
type C:\allesnietdubbel.txt | findstr /V KB > C:\drivers\Final.txt 
goto :eof 



exit 

Answer 1

次のアプローチを試してください。 編集からcsvファイル(rfc4180 compliant)に出力を保存します。

@ECHO OFF 
SETLOCAL EnableExtensions DisableDelayedExpansion 
set "_csvfile=%TEMP%\%COMPUTERNAME%_39082171.csv" change to match your needs 
> "%_csvfile%" (
     rem (facultative, optional) CSV header 
    echo "version","displayname","comment" 
    call :getsw "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall" 
    call :getsw "HKCU\Software\Microsoft\Windows\CurrentVersion\Uninstall" 
    call :getsw "HKLM\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall" 
) 
ENDLOCAL 
goto :eof 

:getsw 
for /F "delims=" %%g in ('reg query "%~1" 2^>NUL') do (
    set "_swRegKey=%%~g" 
    set "_swName=" 
    set "_swVers=" 
    for /F "tokens=1,2,*" %%G in (' 
     reg query "%%~g" /V DisplayName 2^>NUL ^| findstr /I "DisplayName" 
            ') do set "_swName=%%~I" 
    for /F "tokens=1,2,*" %%G in (' 
     reg query "%%~g" /V DisplayVersion 2^>NUL ^| findstr /I "DisplayVersion" 
            ') do set "_swVers=%%~I" 
    call :echosw 
) 
goto :eof 

:echosw 
    SETLOCAL EnableDelayedExpansion 
    if "%_swName%%_swVers%"=="" (
     rem comment up next ECHO command if you don't require such information 
     ECHO "","","unknown !_swRegKey:HKEY_LOCAL_MACHINE=HKLM!" 
    ) else (
     echo "!_swVers!","!_swName!","" 
    ) 
    ENDLOCAL 
goto :eof 

サンプル出力（主にここではデモンストレーションのために絞り込ん）：

==> D:\bat\SO\39082171.bat 

==> type "%TEMP%\%COMPUTERNAME%_39082171.csv"|findstr /I "comment KB unknown" 
"version","displayname","comment" 
"","","unknown HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Connection Manager" 
"12.0.31101","Visual Studio 2013 Update 4 (KB2829760)","" 
"12.0.30112","Update for Microsoft Visual Studio 2013 (KB2932965)","" 
"1","Update for (KB2504637)","" 

==> 

資源（必読）：

• （コマンドリファレンス）An A-Z Index of the Windows CMD command line
• （役に立つ特殊性）Windows CMD Shell Command Line Syntax
• （%~G、%~1など特別ページ）Command Line arguments (Parameters)
• （特別ページ）EnableDelayedExpansion
• （2>NUL、2>&1、|など特別ページ）Redirection
• （2^>NUL、^|など）Escape Characters, Delimiters and Quotes