在檔案中批量輸出變數

我想批量輸入一個變數到一個文本檔案。我已經嘗試了幾件事，但似乎找不到合適的變數。有人可以幫忙嗎？

這是我的代碼：

echo.
echo List of all recorded wifi networks and their passwords:
echo.
setlocal enabledelayedexpansion
for /f "tokens=2delims=:" %%a in ('netsh wlan show profile ^|findstr ":"') do (
    set "ssid=%%~a"
    call :getpwd "%%ssid:~1%%"
)

echo.
echo.
choice /M "Do you want to save results to a txt file?"
set path=%errorlevel%
if %path% EQU 1 goto save_to_txt
if %path% EQU 2 goto END


:save_to_txt
if not exist List.txt (

        echo Output of Wifi password grabber.bat > List.txt

    )
echo ssid: %ssid% pass: %%i>> List.txt
pause
exit /b

:END
echo This is the no area
pause
exit /b

:getpwd 
set "ssid=%*"
for /f "tokens=2delims=:" %%i in ('netsh wlan show profile name^="%ssid:"=%" key^=clear ^| findstr /C:"Key Content"') do echo ssid: %ssid% pass: %%i

伊壁鳩魯。

uj5u.com熱心網友回復：

您不能%%i在for回圈之外使用。它是一個臨時變數，由for. 您也不需要使用多個標簽，只需事先詢問您是否要保存到檔案：

@echo off & set outfile=
setlocal enabledelayedexpansion
if not exist list.txt echo Output of Wifi password grabber.bat>list.txt
choice /c yn /M "would you like log SSID results to file?
if not errorlevel 2 set "outfile=>>list.txt"
for /f "tokens=2*delims=:" %%a in ('netsh wlan show profile ^|find /i "All User Profile"') do (
    set "ssid=%%~a"
    for /f "tokens=2*delims=:" %%i in ('netsh wlan show profile name^="!ssid:~1!" key^=clear ^| findstr /C:"Key Content"') do (echo ssid: "!ssid:~1!" pass: %%i)%outfile%
)

或在 for 回圈中不設定變數且不需要 delayedexpansion

@echo off & set outfile=
if not exist list.txt echo Output of Wifi password grabber.bat>list.txt
choice /c yn /M "would you like log SSID results to file?
if not errorlevel 2 set "outfile=>>list.txt"
for /f "tokens=2*delims=:" %%a in ('netsh wlan show profile ^|find /i "All User Profile"') do for /f "tokens=2*delims=:" %%i in ('netsh wlan show profile name^=%%a key^=clear ^| findstr /C:"Key Content"') do (echo ssid: %%a pass: %%i)%outfile%

uj5u.com熱心網友回復：

由于我的評論，（在另一個當前存在的答案下方），我在我的腳本個人收藏中搜索了一個類似的例子。

以下內容（如果某些內容與設計時所依據的特定標準不匹配，則可能會失敗）旨在回傳組態檔名稱、介面名稱、SSID 和密碼密鑰。

除了添加代碼的“結果到檔案”部分之外，它在 Windows 8 上進行了測驗[英文]

@Echo Off
SetLocal EnableExtensions DisableDelayedExpansion
Set "LDN=_tmp"
For /F Tokens^=*^ Delims^=^ EOL^= %%G In ('Dir "%TEMP%" /B /A:D /O:N 2^>NUL'
) Do Set "LDN=%%G%LDN%"
MD "%TEMP%\%LDN%" 2>NUL || GoTo :EOF
For /F "Delims==" %%G In ('%SystemRoot%\System32\wbem\WMIC.exe OS Call /? ^|
 %SystemRoot%\System32\find.exe "=="') Do Set "HT=%%G"
(Set LF=^
% 0x0A %
)
For /F %%G In ('Copy /Z "%~f0" NUL') Do Set "CR=%%G"
%SystemRoot%\System32\choice.exe /M "Print WLAN Profile results to file"
If ErrorLevel 2 (Set "FOD=CON") Else Set "FOD=%~dp0list.txt"
For /F Tokens^=2^,4^ Delims^=^" %%G In ('%SystemRoot%\System32\netsh.exe WLAN
 export profile key^=clear folder^="%TEMP%\%LDN%"') Do (Set "_=%%~nH"
    Set "{="
    For /F "Tokens=* Delims=" %%I In ('%SystemRoot%\System32\cmd.exe /V /S /D
     /C %SystemRoot%\System32\findstr.exe /R /I /C:"<keyMaterial>"^
     /C:".*!CR!*!LF![\ \%HT:~-1%]*<\/SSID>" "%%H"') Do (Set "]=%%I"
        SetLocal EnableDelayedExpansion
        If "!]:~-6,1!" == "/" (For %%J In ("!]:~,-7!") Do (EndLocal
            Set "}=%%~J")) Else For %%J In ("!]:~,-14!") Do (EndLocal
            Set "{=%%~J")
        If Defined { (SetLocal EnableDelayedExpansion
        For /F Tokens^=*^ Delims^=^ EOL^= %%K In ('
         Echo(^| Set /P "=!_:-%%G="^&:"!" 0^<NUL') Do (
            (Echo Name="%%G" Interface="%%K" SSID="!}:*>=!" Key="!{:*>=!"
            ) 1>>"%FOD%" & EndLocal))))
RD /Q /S "%TEMP%\%LDN%"
If /I "%FOD%" == "CON" (Setlocal EnableDelayedExpansion
    For /F "Tokens=1,2" %%G In ("!CMDCMDLINE!") Do (Endlocal
        If /I "%%~nG" == "cmd" If /I "%%~H" == "/C" Pause))
EndLocal
GoTo :EOF

該檔案list.txt，如果您選擇寫入一個，將位于批處理檔案旁邊%~dp0，如果它不存在，它應該創建它，或者添加到它，如果它存在。

標籤：

上一篇：使用BAT檔案的BIGQuery命令

下一篇：Matlab矩陣最小值