ms1 = "строка"
ms2 = ""
For i = 1 To Len(ms1)
a = Mid(ms1, i, 1)
If a = "т" Then
ms2 = ms2 + "t"
ElseIf a = "о" Then
ms2 = ms2 + "0"
Else
ms2 = ms2 + a
End If
Next i
Замена символов
Приветствую!
Скажите, пожалуйста, как можно сделать замену символов в строке на другие, а то я сделал в 2000 access'е (код ниже) все работает. Конверчу в 97 access ругается на mid. Можно еще как-нибудь проще сделать?
Скажите, пожалуйста, как можно сделать замену символов в строке на другие, а то я сделал в 2000 access'е (код ниже) все работает. Конверчу в 97 access ругается на mid. Можно еще как-нибудь проще сделать?
Код:
Непонятно, чем ему Mid не угодил... Есть он в 97-м...
А по поводу "как проще" - а что ты хочешь получить-то?
А по поводу "как проще" - а что ты хочешь получить-то?
У тебя скорей всего и Left с Right тоже не работают ;)
Проблемы из-за конвертации базы, слетели библиотеки:
для начала зайди в Tools -> References, сними галки и поставь заново на необходимые библиотеки (VB, DAO, ADO, ...)
потом можно запустить сжатие востановление.
Проблемы из-за конвертации базы, слетели библиотеки:
для начала зайди в Tools -> References, сними галки и поставь заново на необходимые библиотеки (VB, DAO, ADO, ...)
потом можно запустить сжатие востановление.
Цитата:
Originally posted by Cutty Sark
Непонятно, чем ему Mid не угодил... Есть он в 97-м...
А по поводу "как проще" - а что ты хочешь получить-то?
Непонятно, чем ему Mid не угодил... Есть он в 97-м...
А по поводу "как проще" - а что ты хочешь получить-то?
есть строка в которой надо заменить пробелы на %20 а перевод строки на %0A%0D
Цитата:
Originally posted by Libarus
есть строка в которой надо заменить пробелы на %20 а перевод строки на %0A%0D
есть строка в которой надо заменить пробелы на %20 а перевод строки на %0A%0D
можно Replace()
токо перевод строки передавать через Chr()
Цитата:
Originally posted by SergeySV
можно Replace()
токо перевод строки передавать через Chr()
можно Replace()
токо перевод строки передавать через Chr()
Незатруднит кинуть какой-нибудь пример с replace() и chr()? Буду признателен.
Цитата:
Originally posted by Libarus
Незатруднит кинуть какой-нибудь пример с replace() и chr()? Буду признателен.
Незатруднит кинуть какой-нибудь пример с replace() и chr()? Буду признателен.
' замена пробелов
Call Replace(strText, " ", "%0A%0D")
' замена возврата каретки
Call Replace(strText, Chr(13), "%0A%0D")
Chr(13) - возврата каретки
Chr(10) - перевод строки
обычно для новой строки используют комбинацию: Chr(13) & Chr(10) так что тебе может понадобится искать и заменять комбинацию Chr(13) & Chr(10)