Dim FSO,Text,A,T
Set FSO = CreateObject("Scripting.FileSystemObject")
Text = FSO.OpenTextFile("1.txt",1).ReadAll
A = Split(Text,vbCrLf)
For i = 0 To Ubound(A)
   For j = i + 1 To Ubound(A)
      If Len(A(i)) < Len(A(j)) Then
         T = A(i)
         A(i) = A(j)
         A(j) = T
      End If
   Next
Next
FSO.CreateTextFile("2.txt",True).Write Join(A,vbCrLf)
复制代码

    @echo off&setlocal enabledelayedexpansion
    (for /l %%a in (1 1 50) do (
       set key=!key!.
      findstr /x "!key!" 1.txt
    ))>b.txt
复制代码

gawk "{print 100000+length($0) $0}" 1.txt|sort /r|sed "s/.\{6\}//"
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1 1 50) do set "key=!key!."
(for /l %%a in (0 1 49) do (
   findstr /x "!key:~%%a!" 1.txt
))>b.txt
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
Set rs = CreateObject("ADODB.RecordSet")

rs.Fields.Append "length",14,3
rs.Fields.Append "text",200,1000
rs.Open

ts = fso.OpenTextFile("1.txt",1).ReadAll

For Each line In reExecute(ts,".+")
    rs.AddNew
    rs("length") = Len(line)
    rs("text") = line
    rs.Update
Next

rs.Sort = "length DESC"
rs.MoveFirst

Do Until rs.EOF
    str = str & rs("text").value & vbCrLf
    rs.MoveNext
Loop

fso.CreateTextFile("2.txt",True).Write str

Function reExecute(text,pattern)
    Set re = New RegExp
    re.Pattern = pattern
    re.Global = True
    re.MultiLine = True
        
    Set reExecute = re.Execute(text)
End Function
复制代码