Фильтр строк

@AfroBiba · Регистрация: 15.02.2011

Author24 — интернет-сервис помощи студентам

есть файл файлнейм.тхт. в файле неопределенное количество строк состоящих из набора цифр. нужно оставить только те строки, в которых поподается комбинация " 30000 1". могу оставить строки в которых кроме " 30000 1" нечего нет. а как оставить все строки в которых есть такие цифры?
думаю понятно описал ситуацию. помогите кто чем сможет.

@gaw · 29.03.2011, 21:59

Visual Basic

Private Sub Command1_Click()
Dim a(3) As String, b As String
b = " 30000 1"
a(1) = "jjjk i 300 1lhl"
a(2) = "gggggggg 30000 1gggggg"
a(3) = "jhf jyf 30000 1 lyf os oyf l"
For i = 1 To 3
If InStr(1, a(i), b) > 0 Then Print a(i)
Next i
End Sub

@AfroBiba 0 / 0 / 0 Регистрация: 15.02.2011 Сообщений: 10
		1
	Фильтр строк 29.03.2011, 21:53. Показов 635. Ответов 1 Метки нет (Все метки) есть файл файлнейм.тхт. в файле неопределенное количество строк состоящих из набора цифр. нужно оставить только те строки, в которых поподается комбинация " 30000 1". могу оставить строки в которых кроме " 30000 1" нечего нет. а как оставить все строки в которых есть такие цифры? думаю понятно описал ситуацию. помогите кто чем сможет. 0

	29.03.2011, 21:59