Shulou(Shulou.com)06/03 Report--

This article mainly introduces how to achieve vbs to support drag txt text cutter, the article is very detailed, has a certain reference value, interested friends must read it!

The'/ * ='* Intro .txt text cutter defaults to 8000 characters and cuts to one file. Dragging is supported. '* FileName SplitFile.vbs' * Version v1.0'* = * / 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 '8000 characters cut into a file iii = iii + 1 WriteToFile Left (Path, Len (Path)-4) & "_" & Right ("00" & iii, 3) & ".txt", Mid (TempStr, II + 1, 8000), "gb2312" Next End Function Function ReadFromFile (FileUrl) CharSet) Dim Str Set stm = CreateObject ("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = CharSet stm.Open stm.loadfromfile FileUrl Str = stm.readtext stm.Close Set stm = Nothing ReadFromFile = Str End Function 'store the file Function WriteToFile (FileUrl, Str) in the specified encoding CharSet) Set stm = CreateObject ("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = CharSet stm.Open stm.WriteText Str stm.SaveToFile FileUrl, 2 stm.flush stm.Close Set stm = Nothing End Function and above are all the contents of the article "how vbs implements a txt text Cutter that supports dragging" Thank you for reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.