| Вопрос: Как сделать? | Добавлено: 13.12.07 20:58 |
Автор вопроса:  ASPIK | ICQ: 47-33-00-99-2 |
|
Скажите как написать программу, чтобы она текстовый файл делила на более меньшии например текстовый файл содержит 100 страниц, нам надо создать 100 файлов в каждой отдельная страница.
Заранее спасибо |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 13.12.07 21:15 |
| что то не възжаю в каком тестовом файле есть страницы? | ||
|
Номер ответа: 2 Автор ответа: ASPIK ICQ: 47-33-00-99-2 Вопросов: 9 Ответов: 24 |
Профиль | | #2 | Добавлено: 13.12.07 21:17 |
| мля парень, образно выразился, имелось ввиду чтобы например файлик делился на файлы с содержанием 500 символов | ||
|
Номер ответа: 3 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #3 | Добавлено: 13.12.07 22:02 |
|
мля парень, образно выразился, имелось ввиду чтобы например файлик делился на файлы с содержанием 500 символов
Этот "парень" тебе в отцы годится... не надо нарываться на грубость... если хочешь получить пристойный и содержательный ответ, прежде всего нужно вежливо задать вопрос. |
||
|
Номер ответа: 4 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #4 | Добавлено: 13.12.07 22:50 |
|
Этот "парень" тебе в отцы годится...
А то и в деды... |
||
|
Номер ответа: 5 Автор ответа: ASPIKICQ: 47-33-00-99-2 Вопросов: 9 Ответов: 24 |
Профиль | | #5 | Добавлено: 14.12.07 08:39 |
|
хе хе
типо стебанули? я личку не юзаю, вопрос поставлен нормально, потому по поводу возраста придераться думаю глупо, причем интернет затирает его... и кто на грубость нарывается? хех |
||
|
Номер ответа: 6 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #6 | Добавлено: 14.12.07 16:14 |
|
>Скажите как написать программу...
негорячись пацан. скажи лучче, ты файл знаешь как открыть? как данные кусками брать? как их класть в другой файл, на? |
||
|
Номер ответа: 7 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #7 | Добавлено: 14.12.07 16:26 |
|
открываеш как бинарник выделяеш место в переменой сколько тебе нада кидаеш туда и записываеш в файл и так пока то размер (сколько там у тебя будет) не будет менше того что осталося.
тебе нада знать что такое цыклы , открывать файл как binary, выделять место в переменой, ну и записывать. |
||
|
Номер ответа: 8 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #8 | Добавлено: 14.12.07 17:24 |
|
Вот тебе код для деления на файлы по размеру.
Private Sub Form_Load()
SplitBySize "c:\test\test1.txt", 1024, "c:\test\out", "out_", "txt" End Sub Function SplitBySize(ByVal SourceFile As String, ByVal SplitSize As Integer, ByVal OutPath As String, ByVal OutPrefix As String, ByVal OutExt As String) As Integer Dim hIn As Integer Dim hOut As Integer Dim DataArr() As Byte Dim Count As Integer, BytesLeft As Integer Dim i As Long ReDim DataArr(SplitSize - 1) hIn = FreeFile Open SourceFile For Binary Access Read Lock Write As #hIn Count = LOF(hIn) \ SplitSize BytesLeft = LOF(hIn) - Count * SplitSize If (Right$(OutPath, 1) <> "\"  And (Right$(OutPath, 1) <> "/" Then OutPath = OutPath & "\"
For i = 1 To Count Get #hIn, , DataArr hOut = FreeFile Open OutPath & OutPrefix & Str(i) & "." & OutExt For Binary Access Write Lock Read As #hOut Put #hOut, , DataArr Close #hOut Next ReDim DataArr(BytesLeft - 1) Get #hIn, , DataArr hOut = FreeFile Open OutPath & OutPrefix & Str(i) & "." & OutExt For Binary Access Write Lock Read As #hOut Put #hOut, , DataArr Close #hOut Close #hIn End Function Домашнее задание: сделать то же самое, но чтобы разделяло по количеству строк 
P.S. А вот борзеть не надо... Это тебе не быдлогоповский форум... Уважайте собеседников! |
||
|
Номер ответа: 9 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #9 | Добавлено: 14.12.07 17:40 |
|
а еще так мона файлы копировать, чтоб прога не подвисала
подскажите плз какой-нить быдлогоповский форум. Я пойду туда и скажу им, что у них форум - быдлогоповский )
|
||
|
Номер ответа: 10 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #10 | Добавлено: 14.12.07 17:50 |
|
подскажите плз какой-нить быдлогоповский форум
http://talk.slavnazi.com/index.php?showtopic=7131
|
||
|
Номер ответа: 11 Автор ответа: ASPIKICQ: 47-33-00-99-2 Вопросов: 9 Ответов: 24 |
Профиль | | #11 | Добавлено: 14.12.07 17:52 |
| спасиб | ||
|
Номер ответа: 12 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #12 | Добавлено: 15.12.07 00:59 |
| спасиб EUGY | ||
Страница: 1 |