Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Программное обеспечение Windows » Офис и Текст - Как убрать заданное количество символов на начале каждой строки

Ответить
Настройки темы
Офис и Текст - Как убрать заданное количество символов на начале каждой строки

Аватара для KooDI

Пользователь


Сообщения: 56
Благодарности: 0


Конфигурация

Профиль | Отправить PM | Цитировать


Доброго времени суток всем
Как можно сделать так чтоб убрать заданное количество символов на начале каждой строки
Пример
читать дальше »
Было
Иван12345
Иван6789
Вася8888
Вася7777

Стало
12345
6789
8888
7777
В данном случае это 4 символа

Отправлено: 14:31, 03-03-2013

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Пойдём по накатанной…

Берём тот же код, выкидываем оттуда регулярные выражения (их, в принципе, можно было и для прошлой задачи выбросить, и пользовать «If InStr(strLine, "Саша") > 0 Then …», да я не стал), и делаем примерно такое:
читать дальше »
Код: Выделить весь код
Option Explicit

Dim strSourceFile
Dim objFSO
Dim objTS

Dim strLine


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FileExists(strSourceFile) Then
		Set objTS = objFSO.CreateTextFile(strSourceFile & ".export.txt", True)
		
		With objFSO.OpenTextFile(strSourceFile)
			Do Until .AtEndOfStream
				strLine = .ReadLine()
				
				objTS.WriteLine Mid(strLine, 5)
			Loop
			
			.Close
		End With
		
		objTS.Close
		
		Set objTS = Nothing
	Else
		WScript.Echo "Source file [" & strSourceFile & "] not found"
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <Source file>"
End If

WScript.Quit
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:16, 03-03-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для KooDI

Пользователь


Сообщения: 56
Благодарности: 0

Профиль | Отправить PM | Цитировать


Спасибо, все работает

Отправлено: 21:32, 03-03-2013 | #3



Компьютерный форум OSzone.net » Сфера Microsoft » Программное обеспечение Windows » Офис и Текст - Как убрать заданное количество символов на начале каждой строки

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - Как расчитать сумму для каждой строки массива pashazt Программирование и базы данных 6 21-12-2012 18:20
2007 - [решено] MS Word. Автоматическая вставка символов в конце каждой строки kirill1994200 Microsoft Office (Word, Excel, Outlook и т.д.) 6 01-10-2012 06:38
CMD/BAT - [решено] Как из имени файла убрать 11 символов cdp75 Скриптовые языки администрирования Windows 3 26-04-2012 06:07
CMD/BAT - [решено] Разобрать txt, на строки и назначить каждой переменную campbell Скриптовые языки администрирования Windows 6 26-11-2011 01:32
CMD/BAT - [решено] Анализ на количество символов в названии файла/папки айкот Скриптовые языки администрирования Windows 8 04-10-2011 16:12




 
Переход