VPF::Как программно экспортировать в документ блокнота

Izuver

Дата 12.8.2006, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

В excel формируется нужный мне текст, но в итоге хочу получить этот текст в файле .txt

Romikgy

Дата 12.8.2006, 18:35 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

дык и сохрани из под экселя как тхт

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Izuver

Дата 13.8.2006, 19:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

Цитата(Romikgy @ 12.8.2006, 18:35)

дык и сохрани из под экселя как тхт

OK!
Тогда сохрани к примеру такой текст
1987-Keeper of the 7 keys, pt. 1
посмотри что в итоге получится. Вот об этом я и говорил раньше, но знатные люди меня послали... вопчем в эту тему меня и послали.

Romikgy

Дата 13.8.2006, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

Цитата(Izuver @ 13.8.2006, 18:16

)

1987-Keeper of the 7 keys, pt. 1

и что в этом тексте страшного ( под рукой нет экселя, но внешне ничего нет выходящего за рамки)

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Izuver

Дата 13.8.2006, 20:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

Цитата(Romikgy @ 13.8.2006, 19:34)

Цитата(Izuver @ 13.8.2006, 18:16

)

1987-Keeper of the 7 keys, pt. 1

и что в этом тексте страшного ( под рукой нет экселя, но внешне ничего нет выходящего за рамки)

Сделай, потом посмотри тот-ли текст получился какой был

Romikgy

Дата 13.8.2006, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

Цитата(Izuver @ 13.8.2006, 19:19

)

1987-Keeper of the 7 keys, pt. 1

это значение в одну ячейку или в несколько?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Izuver

Дата 13.8.2006, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

Цитата(Romikgy @ 13.8.2006, 20:30)

1987-Keeper of the 7 keys, pt. 1 это значение в одну ячейку или в несколько?

в одной

Romikgy

Дата 14.8.2006, 08:37 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

Izuver, ну попробывал у мя нормально сохраняет, как и должно в одну строку без мусора

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Izuver

Дата 15.8.2006, 23:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

ну ладно, хорошо, раньше было сейчас не понимаю, но вместо запятой попробуй сохранить кавычку

Romikgy

Дата 16.8.2006, 00:08 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

Код


Привет" вот так?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Izuver

Дата 16.8.2006, 00:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

ну да

Izuver

Дата 18.8.2006, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

Так как на счет экспорта программного?

Romikgy

Дата 18.8.2006, 13:18 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

Код


Public Function ReadFile(FileName _
       As String) As String
  Dim FileNumber As Integer
  FileNumber = FreeFile
  Open FileName For Input As #FileNumber
  ReadFile = Input(LOF(FileNumber), FileNumber)
  Close #FileNumber
End Function
Public Sub WriteFile(FileName As _
       String, Contents As String)
  Dim FileNumber As Integer
  FileNumber = FreeFile
  Open FileName For Output As #FileNumber
  Print #FileNumber, Contents;
  Close #FileNumber
End Sub
Sub bfg()
 WriteFile "c:\vba.out", Cells(1, 1)
End Sub

в cells(1,1) могут быть любые символы
надо много ячеек выводить пробегись по всем , между ячейками можешь вставлять знаки табуляции имхо значение 9 , а перевод на др. строку 13 (хекс)

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Izuver

Дата 18.8.2006, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

Цитата(Romikgy @ 18.8.2006, 13:18)

надо много ячеек выводить пробегись по всем , между ячейками можешь вставлять знаки табуляции имхо значение 9 , а перевод на др. строку 13 (хекс)

Ну можно и так, только вот действительно я не знал как записать вторую строчку или столбец. Я думал экспорт это целиком.

Romikgy

Дата 18.8.2006, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

не понял?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Izuver

Дата 18.8.2006, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

Как вторую и более строк записать?
Что значит:
"между ячейками можешь вставлять знаки табуляции имхо значение 9 , а перевод на др. строку 13 (хекс)"
Я думал экспорт - весь лист берется в файл .txt

Добавлено @ 14:10
Например:

descript.ion
Thumbs.db
ZbThumbnail.info

Romikgy

Дата 18.8.2006, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

на экспортирует весь активный лист

Код


Public Function ReadFile(FileName _
       As String) As String
  Dim FileNumber As Integer
  FileNumber = FreeFile
  Open FileName For Input As #FileNumber
  ReadFile = Input(LOF(FileNumber), FileNumber)
  Close #FileNumber
End Function
Public Sub WriteFile(FileName As _
       String, Contents As String)
  Dim FileNumber As Integer
  FileNumber = FreeFile
  Open FileName For Output As #FileNumber
  Print #FileNumber, Contents;
  Close #FileNumber
End Sub
Sub bfg()
Dim strx As String, s1 As String


 'WriteFile "c:\vba.out", Cells(1, 1)
 ix = Worksheets(1).UsedRange.Rows.Count
 iy = Worksheets(1).UsedRange.Columns.Count
 strx = ""
 For j = 1 To ix
 
 For i = 1 To iy
 s1 = Cells(j, i)
 If s1 <> "" Then
 strx = strx + (s1) + Chr(9)
 Else: strx = strx + Chr(9)
 End If
 Next i
 strx = strx + Chr(13) + Chr(10)
 
 
 Next j
 WriteFile "c:\vba.out", strx
 
End Sub

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »