[Iska]

Код:

for /f "delims=" %%i in (FileIn.txt) do echo Вася_%%i>>FileOut.txt

[BMW09121985]

Iska, Может не по теме, хотел спросить, как можно разделить текстовый файл на несколько с нужным количеством ?
К примеру есть файл с 2052 строк, а мне надо его разделить на 36 файликов по 57 строк!

[Iska]

Может не по теме »

Не по теме. На будущее: принято так — «Один вопрос — одна тема».

читать дальше »

Код:

Option Explicit

Dim strSourceFile
Dim strDestFile

Dim lngLines
Dim i
Dim lngFileNumber

Dim objTSSource
Dim objTSDest

Dim strLine


strSourceFile = "C:\Песочница\008\Source.txt"
strDestFile   = "C:\Песочница\008\Destination$.txt"


lngLines      = 57
i             = 0
lngFileNumber = 0

With WScript.CreateObject("Scripting.FileSystemObject")
	Set objTSSource = .OpenTextFile(strSourceFile)
	Set objTSDest   = .CreateTextFile(Replace(strDestFile, "$", CStr(lngFileNumber)), True)
	
	Do Until objTSSource.AtEndOfStream
		strLine = objTSSource.ReadLine()
		i = i + 1
		
		If i > lngLines Then
			objTSDest.Close
			
			i = 1
			lngFileNumber = lngFileNumber + 1
			
			Set objTSDest = .CreateTextFile(Replace(strDestFile, "$", CStr(lngFileNumber)), True)
		End If
		
		objTSDest.WriteLine strLine
	Loop
	
	objTSDest.Close
	objTSSource.Close
	
	Set objTSDest   = Nothing
	Set objTSSource = Nothing
End With

WScript.Quit 0

[softter]

К примеру есть файл с 2052 строк, а мне надо его разделить на 36 файликов по 57 строк! »

Cut Mail list - режет файлы со строковыми данными на более мелкие части. Правда делалась для разделки е-майл листов и минимальное число строк 200. Если есть желание скину исходник, перекомпилируете сами.

[KooDI]

Доброго времени суток
Iska, пожалуйста можете подправить этот код так чтоб можно было на кнопку в тотале повесить.
Код с поста #33

[Iska]

KooDI, посмотрю ночью.

[Iska]

Посмотрел.

E:\Песочница\0363\SplitTextFile.vbs:

читать дальше »

Код:

Option Explicit

Dim strSourceFile
Dim strDestFile

Dim strLines
Dim lngLines
Dim i
Dim lngFileNumber

Dim objTSSource
Dim objTSDest

Dim strLine


If WScript.Arguments.Count = 1 Then
	With WScript.CreateObject("Scripting.FileSystemObject")
		strSourceFile = .GetAbsolutePathName(WScript.Arguments.Item(0))
		
		If .FileExists(strSourceFile) Then
			strDestFile = .BuildPath(.GetParentFolderName(strSourceFile), .GetBaseName(strSourceFile) & "|." & .GetExtensionName(strSourceFile))
			
			strLines = Trim(InputBox("Enter lines count:", "Lines count", 50))
			
			If strLines <> "" Then
				lngLines = CLng(strLines)
				i = 0
				lngFileNumber = 1
				
				Set objTSSource = .OpenTextFile(strSourceFile)
				Set objTSDest   = .CreateTextFile(Replace(strDestFile, "|", CStr(lngFileNumber)), True)
				
				Do Until objTSSource.AtEndOfStream
					strLine = objTSSource.ReadLine()
					i = i + 1
					
					If i > lngLines Then
						objTSDest.Close
						
						i = 1
						lngFileNumber = lngFileNumber + 1
						
						Set objTSDest = .CreateTextFile(Replace(strDestFile, "|", CStr(lngFileNumber)), True)
					End If
					
					objTSDest.WriteLine strLine
				Loop
				
				objTSDest.Close
				objTSSource.Close
				
				Set objTSDest   = Nothing
				Set objTSSource = Nothing
			End If
		Else
			WScript.Echo "Source file [" & strSourceFile & "] not found."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: wscript.exe " & WScript.ScriptName & " <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

Настройки кнопки обычны:

читать дальше »

[KooDI]

Ого даже так, это просто супер, спасибо огромное, один универсальный скрипт, можно задавать сколько надо строк в окошечке, не думал что так можно...)
Можете подсазать в какой строке и где подставить(если это не сложно, и не надо весь код скрипта изменять) символ _, что б было с суфиксом _1, _2, _3...?

[Iska]

Можете подсазать в какой строке и где подставить(если это не сложно, и не надо весь код скрипта изменять) символ _, что б было с суфиксом _1, _2, _3...? »

Здесь:

Код:

strDestFile = .BuildPath(.GetParentFolderName(strSourceFile), .GetBaseName(strSourceFile) & "_|." & .GetExtensionName(strSourceFile))