Что нового

[Массивы] Выбрать из файла нужное значение

ZanMax

Тестер
Сообщения
120
Репутация
5
Всем привет.
Возникла необходимость в программе которая будет выбирать из файла нужные значение.
На входе из файла или еще как-то получаем значения типа.
1 2 8 (1-номер строки 2 - номер слова 8-номер буквы в слове) і т.д до 50 - 100 значений.
Сам текст находиться в *.txt файле.
:-[ Буду очень признателен ну или помогите в реализации алгоритма.
Спасибо огромное.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
ZanMax,
Код:
$sText = 'Всем привет.' & @CRLF & _
		'Возникла необходимость в программе которая будет выбирать из файла нужные значение.' & @CRLF & _
		'На входе из файла или еще как-то получаем значения типа. ' & @CRLF & _
		'1 2 8 (1-номер строки 2 - номер слова 8-номер буквы в слове) і т.д до 50 - 100 значений.' & @CRLF & _
		'Сам текст находиться в *.txt файле.' & @CRLF & _
		'  Буду очень признателен ну или помогите в реализации алгоритма.' & @CRLF & _
		'Спасибо огромное.'

$iString = 6
$iWord = 3
$iLetter = 4

$aText = StringSplit(StringStripCR($sText), @LF)
If $iString > $aText[0] Then
	MsgBox(16, 'Error', 'Error-1')
	Exit
EndIf
$aString = StringSplit(StringStripWS($aText[$iString], 7), Chr(32))
If $iWord > $aString[0] Then
	MsgBox(16, 'Error', 'Error-2')
	Exit
EndIf
If $iLetter > StringLen($aString[$iWord]) Then
	MsgBox(16, 'Error', 'Error-3')
	Exit
Else
	MsgBox(64, 'Info', 'Строка № ' & $iString & ', Слово № ' & $iWord & ', Буква № ' & $iLetter & ':  ' & _
			StringMid($aString[$iWord], $iLetter, 1))
EndIf
 
Верх