| |
|
|
| | Как найти и удалить нужные символы в Access 97. Функция Replace() в 97 отсутствует. Чем заменить? | |
| |
| |
|
|
| |
|
|
| | Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
Returns the position of the first occurrence of one string within another | |
| |
| |
| |
|
|
| | Не только найти. Как удалить или заменить нужные символы в Access 97? | |
| |
| |
| |
|
|
| | ну если InStr вернуло значение <> 0
дальше играем функцией Mid()
а что - реально нет Replace() ? | |
| |
| |
| |
|
|
| | А если более одного пробела? | |
| |
| |
| |
|
|
| | написать свою функцию Replace()
здесь на форуме вроде даже было что-то похожее | |
| |
| |
| |
|
|
| | Спасибо за хороший совет. | |
| |
| |
| |
|
|
| | вот, например убирает пробелы
Public Function MinusDoubleProb(s As String) As String
Static I As Long, SO As String
SO = s
Do
I = InStr(SO, " ")
If I = 0 Then Exit Do
SO = Mid(SO, 1, I) + Mid(SO, I + 2)
Loop
MinusDoubleProb = SO
End Function
|
| |
| |
| |
| |
|
|
| | Спасибо.
Function FindAndReplace(ByVal strInString As String, _
strFindString As String, _
strReplaceString As String) As String
Dim intPtr As Integer
If Len(strFindString) > 0 Then
Do
intPtr = InStr(strInString, strFindString)
If intPtr > 0 Then
FindAndReplace = FindAndReplace & left(strInString, intPtr - 1) & _
strReplaceString
strInString = Mid(strInString, intPtr + Len(strFindString))
End If
Loop While intPtr > 0
End If
FindAndReplace = FindAndReplace & strInString
End Function
|
или
Function Replace(ByVal Valuein As String, ByVal WhatToReplace As _
String, ByVal Replacevalue As String) As String
Dim Temp as String, P As Long
Temp = Valuein
P = Instr(Temp, WhatToReplace)
Do While P > 0
Temp=Left(Temp, P-1) & Replacevalue & _
Mid(Temp, P+Len(WhatToReplace))
P = InStr(P + Len(Replacevalue), Temp, WhatToReplace, 1)
Loop
Replace = Temp
End Function
|
| |
| |
| |
