Проверка на символ

[Zeke]

Здравствуйте. Такая проблема возникла.
Я из ячейки экселя записываю данные в текстовый файл с помощью макроса. Но когда просматриваю получившийся файл, то в нем в строках проскакивают непонятные символы типа прямоугольничков, палочек разных, то есть как бы из другой кодировки совсем. Но сам эксель эти "скрытые" символы в своих ячейках не отображает.
Как сделать проверку на эти непонятные символы, чтобы не записывать их в файл?

[uhm]

Как записываешь? Код приведи. Конкретно - каким способом открываешь файл и переменные какого типа туда запихиваешь?

[JohnCR]

Приведи пример макроса, которым выгружаешь значение ячейки.

[Zeke]

Вот кусок макроса

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

Open "C:\file.txt" For Binary As #1
....
Put #1, , CStr("""" + Trim(ActiveSheet.Cells(i, 3).Text) + """" + "," _
                + """" + Trim(ActiveSheet.Cells(i, 2).Text) + """" + "," _
                + Format(ActiveSheet.Cells(i, 5).Text) + "," _
                + Replace(Format(ActiveSheet.Cells(i, 6).Value * 1.18, "0.00"), ",", ".") _
                + "," + """" + Trim(ActiveSheet.Cells(i, 11).Text) + """" + "," _
                + """" + Trim(ActiveSheet.Cells(i, 12).Text) + """" + Chr(13) + Chr(10))
....
Close #1


Эти символы встречаются в данных, взятых из второго столбца, то есть в Trim(ActiveSheet.Cells(i, 2).Text)

[Viper]

Во первых, такой код нечитаем
Во вторых, ты пишешь не в текстовый файл, а в бинарный
надо открывать так

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


Open FileName For Output As #1


[uhm]

!Viper!, вот просто интересно, а как бы ты написал этот код, чтобы он был читаемым?

Zeke, таки да, дело в том, что ты открываешь файл as binary. Либо открывай его так, как советует !Viper!, либо читай хелп по оператору "Put" и его работе с Random и Binary mode.

[Zeke]

Во первых, такой код нечитаем
Во вторых, ты пишешь не в текстовый файл, а в бинарный
надо открывать так

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

Open FileName For Output As #1


Согласен, что не привел код в божеский вид.
Но если я напишу Output вместо Binary, то сразу вылетает run-time error '54' - bad file mode

[Igor_123]

Так вместо Put, Print и порядок

[Zeke]

Так вместо Put, Print и порядок

я уже попробовал и так, но он все равно записывает непонятные символы в текстовый файл, в частности, прямойгольничек, похожий на букву "0", только с прямыми углами

[Viper]

!Viper!, вот просто интересно, а как бы ты написал этот код, чтобы он был читаемым?

Любой код должен быть написан так, чтоб его можно было понять! Иначе через пару дней даже автор не всегда может понять что он написал.
Конкретно про этот код не скажу по причине его непнятности

Zeke походу тебе попадается что-то типа разделителей ячеек, хотя вроде бы не должны

[Igor_123]

Это непечатаемые символы.попробуй посмотреть коды этих квадратиков. и позаменять их на пробелы например

[Zeke]

Это непечатаемые символы.попробуй посмотреть коды этих квадратиков. и позаменять их на пробелы например

А как этот непечатуемый символ в строке найти(я не знаю, как с помошью VB его найти, просто я на VB почти никогда ничего не писал, поэтому все функции подряд просматривать, чтобы найти нужную, не очень хочется)?

[Viper]

тупой вариант: для каждого символа строки вызывать функцию Asc, а потом смотреть, что за коды символов она выдает.

вариант2: вызывать Asc для последнего (или может быть 2-х последних) символов ячейки типа

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

Debug.Print Asc(Right(Trim(ActiveSheet.Cells(i, 3).Text),1))

тока глянь в Help на эти функции, а то чей то у меня от жары мозги плавяться - могу с синтаксисом напутать, а Help смореть ломы

[uhm]

Я проверил, на экселевских данных, введенных ручками, все работает нормально, никаких непечатностей не возникает. Видимо, у тебя в ячейках действительно непечатные символы. Ты, часом, эти данные не из какой-нибудь БД импортируешь?

[Zeke]

тупой вариант: для каждого символа строки вызывать функцию Asc, а потом смотреть, что за коды символов она выдает.

вариант2: вызывать Asc для последнего (или может быть 2-х последних) символов ячейки типа

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

Debug.Print Asc(Right(Trim(ActiveSheet.Cells(i, 3).Text),1))

тока глянь в Help на эти функции, а то чей то у меня от жары мозги плавяться - могу с синтаксисом напутать, а Help смореть ломы

для последнего(-их) смотреть бесполезно, потому что они стоят не в конце, а в середине могут попасться или в начале, поэтому придется всю строку прверять

[Zeke]

Я проверил, на экселевских данных, введенных ручками, все работает нормально, никаких непечатностей не возникает. Видимо, у тебя в ячейках действительно непечатные символы. Ты, часом, эти данные не из какой-нибудь БД импортируешь?

да я вот тоже думаю, откуда они могли там взяться. Мне этот файл прислали, а как он получился - я не знаю