DosTips.com

Code: Select all

@echo off
setlocal enabledelayedexpansion

set "file_path=C:\mydrive\bookmarks.txt"
set /a count=0
set /a line_number=0

:: Count the number of lines in the file
for /f %%a in ('type "%file_path%" ^| find /c /v ""') do set /a count=%%a

:: Generate a random line number
set /a "random=!random! %% count + 1"

:: Loop through the file to find the random pair
for /f "delims=" %%b in ('type "%file_path%" ^| findstr /n "^"') do (
    set /a "line_number+=1"
    set "line=%%b"
    set "line=!line:*:=!"
    
    if !line_number! equ !random! (
        set /a "next_line=line_number+1"
        
        :: Extract URL and Description
        for /f "skip=%next_line% tokens=1,* delims=," %%c in ('type "%file_path%"') do (
            set "url=%%c"
            set "description=%%d"
            
            :: Open the URL
            start "" "!url!"
            
            :: Display the Description
            echo Description: !description!
            
            exit /b
        )
    )
)

Code: Select all

@echo off
setlocal EnableDelayedExpansion

set "file_path=C:\mydrive\bookmarks.txt"

rem Count the number of lines in the file
for /F "tokens=2 delims=:" %%a in ('find /C /V "" "%file_path%"') do set "count=%%a"

rem Generate an even random line number
set /A "random_line=(%random% %% count) & ~1"

rem Get the number of lines to skip in the file
set "skip="
if %random_line% gtr 0 set "skip=skip=%random_line%"

rem Get the random pair from line number
set "URL="
for /F "usebackq %skip% delims=" %%a in ("%file_path%") do (
   if not defined URL (
      set "URL=%%a"
   ) else (
      set "Description=%%a"
      goto break
   )
)
:break

rem Open the URL
ECHO start "" "%url%"

rem Display the description
echo Description: %Description%