新的代码写不动了，打算把电脑里的库存代码都分享一下

代码变量名比较长，采用了大驼峰命名法

ENVI ListOfPartitions
ENVI ListOfPartitionInformation=
ENVI LengthOfThePartitionListString=0
ENVI NumberOfPartitions=0
ENVI PartitionInformationIsCountedInTheNumberOfCycles=0
ENVI PartitionDriveLetterIsTheStartingPositionOfTheInterception=0

CALL GenerateAListOfPartitionInformation
MESS %ListOfPartitionInformation%

_SUB GenerateAListOfPartitionInformation
    FDRV ListOfPartitions=*
    STRL LengthOfThePartitionListString=%ListOfPartitions%
    CALC #NumberOfPartitions = %LengthOfThePartitionListString% + 1
    CALC #NumberOfPartitions = %NumberOfPartitions% / 2
    LOOP 1,
    {
        IFEX $%PartitionInformationIsCountedInTheNumberOfCycles% = %NumberOfPartitions%,EXIT LOOP
        CALC #PartitionDriveLetterIsTheStartingPositionOfTheInterception = %PartitionInformationIsCountedInTheNumberOfCycles% * 2 + 1
        CALC #PartitionInformationIsCountedInTheNumberOfCycles = %PartitionInformationIsCountedInTheNumberOfCycles% + 1
        MSTR PartitionDriveLetter-%PartitionInformationIsCountedInTheNumberOfCycles%=%PartitionDriveLetterIsTheStartingPositionOfTheInterception%,1,%ListOfPartitions%
        FORM-userfree PartitionTheAvailableSpace-%PartitionInformationIsCountedInTheNumberOfCycles%=%PartitionDriveLetter-%PartitionInformationIsCountedInTheNumberOfCycles%%
        FORM-userall TotalSpaceOfThePartition-%PartitionInformationIsCountedInTheNumberOfCycles%=%PartitionDriveLetter-%PartitionInformationIsCountedInTheNumberOfCycles%%
        CALC #PartitionTheAvailableSpace-%PartitionInformationIsCountedInTheNumberOfCycles% = %PartitionTheAvailableSpace-%PartitionInformationIsCountedInTheNumberOfCycles%% / 1073741824
        CALC #TotalSpaceOfThePartition-%PartitionInformationIsCountedInTheNumberOfCycles% = %TotalSpaceOfThePartition-%PartitionInformationIsCountedInTheNumberOfCycles%% / 1073741824
        EXEC* PartitionVolumeName-%PartitionInformationIsCountedInTheNumberOfCycles%=!CMD.EXE /C vol %PartitionDriveLetter-%PartitionInformationIsCountedInTheNumberOfCycles%%:
        MSTR PartitionVolumeName-%PartitionInformationIsCountedInTheNumberOfCycles%=<-4>-200 -200 %PartitionVolumeName-%PartitionInformationIsCountedInTheNumberOfCycles%%END
        FIND $%PartitionVolumeName-%PartitionInformationIsCountedInTheNumberOfCycles%%=中的卷没有标签。,ENVI PartitionVolumeName-%PartitionInformationIsCountedInTheNumberOfCycles%=暂无卷名
        FIND $%PartitionVolumeName-%PartitionInformationIsCountedInTheNumberOfCycles%%=中的卷没有标签。,ENVI PartitionVolumeName-%PartitionInformationIsCountedInTheNumberOfCycles%=暂无卷名
        EXEC* PartitionSystem-%PartitionInformationIsCountedInTheNumberOfCycles%=!CMD.EXE /C wmic logicaldisk where name="%PartitionDriveLetter-%PartitionInformationIsCountedInTheNumberOfCycles%%:" get filesystem
        MSTR PartitionSystem-%PartitionInformationIsCountedInTheNumberOfCycles%=<-2>-200 -200 %PartitionSystem-%PartitionInformationIsCountedInTheNumberOfCycles%%END
        FIND $%PartitionSystem-%PartitionInformationIsCountedInTheNumberOfCycles%%=FileSystem,ENVI PartitionSystem-%PartitionInformationIsCountedInTheNumberOfCycles%=分区暂未格式化
        ENVI ListOfPartitionInformation=%ListOfPartitionInformation%%PartitionDriveLetter-%PartitionInformationIsCountedInTheNumberOfCycles%%：%PartitionVolumeName-%PartitionInformationIsCountedInTheNumberOfCycles%% %PartitionTheAvailableSpace-%PartitionInformationIsCountedInTheNumberOfCycles%%GB %TotalSpaceOfThePartition-%PartitionInformationIsCountedInTheNumberOfCycles%%GB %PartitionSystem-%PartitionInformationIsCountedInTheNumberOfCycles%% |
    }
_END