Помогите пожайлуста !!!

[alex77777]

}{i !

Есть текстовый файл надо обработать эту стоку!
Как правильно обработать строку!?
,1234567890,РАЙОН,,ИВАНОВО,,ЗАПАДНАЯ УЛ,1,,11

[GSerg]

Видать, split(s, ",")?

[alex77777]

что за split !Я идиот! Убейте меня, кто-нибудь!?

[alex77777]

мне АЛГОРИТМ НУЖЕН и получить(желательно в VBA) :

1234567890 РАЙОН ИВАНОВО ЗАПАДНАЯ УЛ 1 11

[xolod]

Во народ ..
Им говорят как сделать, а они ШО ЗА ФЕНЬКА??? НИНУЖНА МНЕ ТАКАЯ!!! АЛГОРИТМ ДАВАЙ СЮДЫ!
Ты на статус GSerg'а посмотри, шаманов слушать надо, а не возмущаться

[Amed]

Код: Выделить всё

Dim stra As String
Dim strb As String
Dim i As Integer
stra = ",1234567890,РАЙОН,,ИВАНОВО,,ЗАПАДНАЯ УЛ,1,,11"

Dim mas() As String

mas = Split(stra, ",")

For i = 3 To UBound(mas)
    If Len(mas(i)) > 0 Then strb = strb & " " & mas(i)
Next i

MsgBox strb


В VBA сам переведи.

[Dzhon]

Можно по просче:

Код: Выделить всё

Private Sub Command1_Click()
Dim stra As String
Dim strb As String

stra = ",1234567890,РАЙОН,,ИВАНОВО,,ЗАПАДНАЯ УЛ,1,,11"
strb = Replace(stra, ",", " ")
stra = ""
stra = Replace(strb, "  ", " ")

MsgBox stra


End Sub

[Amed]

Это не то же самое, кстати говоря. Просто непонятно, что человеку надо - просто убить запятые, или "по-умному" пропарсить строку...

[Dzhon]

Не спорю!
Каков вопрос - столько и вариантов ответа!

[alex77777]

Спасибо за Хелп
Дело, в том что в файле много записей соответственно, и адреса
этих людей разные вооот.

[alex77777]

Скажите пожайлуста как пропустить 1-ну запятую
(например: ,,)

[Ennor]

Я так понял, что при использовании Split() у тебя получается массив, некоторые из элементов которого являются пустыми строками? Ну так проверяй каждый элемент на пустоту, и если это так, то просто откидывай его:

Код: Выделить всё

If Len(Arr(Z)) = 0 Then
  ' Nothing to do
Else
  ' Работаем
End If

У тебя получится больше элементов, но зато не пропустишь одиночные запятые.

[Amed]

Гхм. У меня, что, нет такой проверки в примере?

Я, кажется, чего-то недопонимаю. alex77777 Прошу выразить последний вопрос несколько более доходчиво.

[alex77777]

Как реализовать:
Во первых :
Найти строку прочитать её “,420000,.…….….до ,,32“,
Во вторых:
Перевести строчку из ASCII на ANSI

“,420000,ТАТАРСТАН РЕСП,,КАЗАНЬ Г,,ВОСХОД УЛ,25,,32”,