Меня интересует как удалить пробелы в
тексте который содержится в TextBox'е примерно
такого вида:
-----------------------------------------------------
| ыарывримрвыыл |
| апораво врпаововв |
| вп ралплкллаоо |
| пллалмал ралоел |
-----------------------------------------------------
но чтобы остались символы перевода строки
(vbCrLf)
1. Для VB 6.0
Dim Ln
do
ln=len(str)
str=Replace(str," "," ")
loop while len(str) <> ln
2. Если юзаешь VB5.0, то сделай аналог функции
Replace, а
потом юзай п.1.
Вот одна из реализаций.
Public Function Replace(ByVal sExpression As String, sFind As String, _
sReplace As String, _
Optional vStart As Long = 1, _
Optional vCount As Long = -1, _
Optional vCompare As Long = vbUseCompareOption) As String
Dim i As Long, l As Long, k As Long, h As Long
l = Len(sFind): If vStart > Len(sExpression) Then Exit Function
If l > 0 And l <= Len(sExpression) Then
k = Len(sReplace) + 1: If vCount < 0 Then vCount = 2147483647
For h = 1 To vCount
i = InStr(vStart, sExpression, sFind, vCompare)
If i = 0 Then Exit For
sExpression = Left$(sExpression, i - 1) & sReplace _
& Mid$(sExpression, i + l): vStart = i + k
Next h
End If
Replace = sExpression
End Function
На ваши вопросы отвечал Калеев
Сергей Александрович
