Tag:Text cutter

  • TXT text cutter supporting drag implemented by vbs

    Time:2020-7-11

     SplitFile.vbs ‘/*=========================================================================    ‘* intro. TXT text cutter, the default is 8000 characters into a file. Drag is supported.    ‘ * FileName    SplitFile.vbs    ‘ * Author      yongfa365    ‘ * Version     v1.0    ‘ * MadeTime    2008-04-24 12:58:43    ‘ * LastModify  2008-04-24 12:58:43    ‘ *==========================================================================*/    Set objArgs = WScript.Arguments    If objArgs.Count = 0 Then   Iiiii InputBox (“select text file to process”, “select text file to process”)Else       For I001 = 0 To objArgs.Count – 1            IIIII objArgs(I001)        Next   End If   Function IIIII(Path)        TempStr = ReadFromFile(Path, “gb2312”)        Length = Len(TempStr)        iii = 0    For II = 0 to length step 8000        iii = iii + 1            WriteToFile Left(Path, Len(Path) -4) & “_” & Right(“00” & iii, 3) & “.txt” , Mid(TempStr, II + 1, 8000), “gb2312”   […]