VBNet - Форум - Как сделать?

Вопрос: Как сделать? Добавлено: 13.12.07 20:58

Автор вопроса: ASPIK | ICQ: 47-33-00-99-2

Скажите как написать программу, чтобы она текстовый файл делила на более меньшии например текстовый файл содержит 100 страниц, нам надо создать 100 файлов в каждой отдельная страница.
Заранее спасибо
Ответить

Ответы Всего ответов: 12

Номер ответа: 1 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| Цитата \| #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 Автор ответа: ASPIK ICQ: 47-33-00-99-2 Вопросов: 9 Ответов: 24	Профиль \| Цитата \| #5	Добавлено: 14.12.07 08:39
	хе хе типо стебанули? я личку не юзаю, вопрос поставлен нормально, потому по поводу возраста придераться думаю глупо, причем интернет затирает его... и кто на грубость нарывается? хех Ответить

Номер ответа: 6 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304	Web-сайт: sur.hotbox.ru/ Профиль \| Цитата \| #6	Добавлено: 14.12.07 16:14
	>Скажите как написать программу... негорячись пацан. скажи лучче, ты файл знаешь как открыть? как данные кусками брать? как их класть в другой файл, на? Ответить

Номер ответа: 7 Автор ответа: Docal ICQ: 408802757 Вопросов: 9 Ответов: 147	Профиль \| Цитата \| #7	Добавлено: 14.12.07 16:26
	открываеш как бинарник выделяеш место в переменой сколько тебе нада кидаеш туда и записываеш в файл и так пока то размер (сколько там у тебя будет) не будет менше того что осталося. тебе нада знать что такое цыклы , открывать файл как binary, выделять место в переменой, ну и записывать. Ответить

Номер ответа: 8 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| Цитата \| #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-сайт: winandfx.narod.ru Профиль \| Цитата \| #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 Автор ответа: ASPIK ICQ: 47-33-00-99-2 Вопросов: 9 Ответов: 24	Профиль \| Цитата \| #11	Добавлено: 14.12.07 17:52
	спасиб Ответить

Номер ответа: 12 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| Цитата \| #12	Добавлено: 15.12.07 00:59
	спасиб EUGY Ответить

Страница: 1 |