#post-id: 8373-21-04
#original-date: 29.06.2023 Thu
#original-time: 9:04 PM
#original-day: 8373
#original-host: WinXP Home SP3 (Build 2600)

Решила переписать finger сервер с путона на FreeBasic. Кода стало сильно больше, зато как приятно смотреть на результат.

Вот – исходный сервер:

https://github.com/michael-lazar/finger2020

Мой готовый вариант пока доделывается ^^'

#upd(29.06.2023 - 11:22 PM):

Попутно вспомнила, что во FreeBasic до сих пор не завезли функцию Replace(), а так же параметр CaseSensitive в InStr(). Но у меня уже была готовая функция Replace(), написанная по образу и подобию вибишной, поэтому я заюзала её.

Однако, выяснилось, что с ней программа виснет. Начала разбираться, что не так в алгоритме и просто офигела от количества невероятных ошибок, которые непонятно как там оказались.

Вот оригинальный код:

Public Function Replace(ByVal Expression As String, _ ByVal FindWhat As String, _ ByVal ReplaceWith As String, _ ByVal StartAt As Integer = 1, _ ByVal Count As Integer = -1, _ ByVal CaseSensitive As Boolean = True) As String Dim RC As Integer Dim lFindWhat As Integer Dim lReplaceWith As Integer ' Так в VB6! If Count = 0 Then Replace = Expression Exit Function End If ' StartAt в VB6 на самом деле не начинал замену с указанного ' индекса, а обрезал строку! =_= ' Будем игнорировать значения меньше единицы, хотя в оригинале они ' вызывали ошибку... If StartAt > 1 Then _ Expression = Mid(Expression, StartAt) ' Кэшируем это, чтобы не вызывать по сто раз... lFindWhat = Len(FindWhat) lReplaceWith = Len(ReplaceWith) ' Debug! 'MsgBox(Len(ReplaceWith)) 'MsgBox(lstrlen(ReplaceWith)) Do If CaseSensitive Then RC = InStr(Expression, FindWhat) Else RC = InStr(UCase(Expression), UCase(FindWhat)) End If If RC = 0 Then Replace = Expression Exit Function Else 'MsgBox(RC) 'MsgBox("""" & Left(Expression, RC - 1) & """") 'MsgBox("""" & Mid(Expression, RC + lFindWhat) & """") Expression = Left(Expression, RC - 1) & _ ReplaceWith & _ Mid(Expression, RC + lFindWhat) StartAt = StartAt + lReplaceWith ' В оригинале, всё, что меньше -1 - ошибка. Но мы будем ' считать, что всё, что меньше нуля - прявильное значение... If Count < 0 Then Count = Count - 1 If Count = 0 Then Replace = Expression Exit Function End If End If End If Loop End Function

А вот – исправленный:

Public Function Replace(ByVal Expression As String, _ ByVal FindWhat As String, _ ByVal ReplaceWith As String, _ ByVal StartAt As Integer = 1, _ ByVal Count As Integer = -1, _ ByVal CaseSensitive As Boolean = True) As String Dim RC As Integer Dim lFindWhat As Integer Dim lReplaceWith As Integer Dim LastIndex As Integer ' Так в VB6! If Count = 0 Then Replace = Expression Exit Function End If ' StartAt в VB6 на самом деле не начинал замену с указанного ' индекса, а обрезал строку! =_= ' Будем игнорировать значения меньше единицы, хотя в оригинале они ' вызывали ошибку... If StartAt > 1 Then _ Expression = Mid(Expression, StartAt) ' Кэшируем это, чтобы не вызывать по сто раз... lFindWhat = Len(FindWhat) lReplaceWith = Len(ReplaceWith) ' Debug! 'Print Len(FindWhat) 'Print Len(ReplaceWith) 'Print lstrlen(ReplaceWith) ' Поиск начинаем с первого символа, разумеется... ' В прошлой версии алгоритма я пыталась использовать StartAt (но ' забыла об этом на полпути). Теперь я использую отдельную ' переменную, чтобы не плодить неоднозначности, ибо, как ' выяснилось, StartAt выполняет совсем другую функцию, срезая ' строку. Вот где-то на открытии среза я и позабыла использовать ' StartAt в InStr(). Короче, другая переменная, и всё. LastIndex = 1 Do If CaseSensitive Then RC = InStr(LastIndex, Expression, FindWhat) Else RC = InStr(LastIndex, UCase(Expression), UCase(FindWhat)) End If If RC = 0 Then Replace = Expression Exit Function Else 'Print RC 'Print """" & Left(Expression, RC - 1) & """" 'Print """" & Mid(Expression, RC + lFindWhat) & """" Expression = Left(Expression, RC - 1) & _ ReplaceWith & _ Mid(Expression, RC + lFindWhat) LastIndex = RC + lReplaceWith ' В оригинале, всё, что меньше -1 - ошибка. Но мы будем ' считать, что всё, что меньше нуля - привильное значение. Так ' нам легче считать. If Count > 0 Then Count = Count - 1 If Count <= 0 Then Replace = Expression Exit Function End If End If End If Loop End Function