Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как определить в каком месте строк стоит знак "="

Автор: XPurple 22.5.2006, 06:16

Требуется обработать строки текстового файла, в которых есть строки вида выражение1=выражение2. Вызывает затруднение то,что длина выражений в разных строках имеет разную длину. Как обработать такие выражения ?

Автор: boevik 22.5.2006, 07:16

function InStr возвращает позицию начала текста2 в тексте1.

Код


instr(1, "a=b", "=", vbTextCompare)   'возвращает 2.

Автор: XPurple 22.5.2006, 07:38

Идея понятна, спасибо.
Вот так в итоге получилось

Код


Public Function SelectString(ByVal openReadConf As Object, ByVal CheckSlash As Boolean) _
As String
Dim valTemp As String
Dim position As Integer

valTemp = openReadConf.ReadLine()
position = InStr(1, valTemp, "=", vbTextCompare)
valTemp = Right(valTemp, Len(valTemp) - position)

If Right(valTemp, 1) <> "\" And CheckSlash Then
SelectString = valTemp + "\"

Else
SelectString = valTemp

End If
End Function

Метод Skip только на считываемые строки из файла распространяется ?
На переменные типа String не распространяется ?

Автор: Akina 22.5.2006, 10:20

Если в строке строго один знак равенства, разумнее выполнять Split по нему - получишь сразу куски до и после знака.

Автор: XPurple 22.5.2006, 13:04

Цитата(Akina @ 22.5.2006, 10:20

)

Век -живи. Век -учись. Спасибо за подсказку.