Программы / Linux

#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

Программы / Linux

Смотрите также