1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

Тема: Вырезать из строки подстроку. Удаление спецсимволов из строки.

    
zag$ =    Left(Replace (zag$,|"|,""),30)
    string0 = Chr(10) '   ВОЗМОЖНО НАДО ДОБАВИТЬ В АГЕНТ!
    string1 = Chr(13)
    If Instr (zag$, string1) Then
        While Instr(1, zag$, string1)
            'Msgbox "перенос"
            zag$ = Left(zag$, Instr(1, zag$, string0) - 1) + " " + Mid(zag$, Instr(1, zag$, string0) + Len(string0))
            zag$ = Left(zag$, Instr(1, zag$, string1) - 1) + " " + Mid(zag$, Instr(1, zag$, string1) + Len(string1))    
        Wend    
    End If

Поделиться