| Вопрос: Помогите... | Добавлено: 06.06.06 11:59 |
Автор вопроса:  Ольга
|
|
Имеется файл *.txt состоящий из чисел ( 1, -5, 0, 24, 20)
нужно упорядочить его по возрастанию... Как это сделать? |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 06.06.06 13:46 |
|
Какое-то злоупотребление форумом...
Форум нам зачем? Что учить и учиться... да и помогать... но не делать же за кого-то? Ольга! Давай вопросы по существу, т.е. что конкретно у тебя не получилось при сортировке... На форуме ты уже довольно достала людей 
|
||
|
Номер ответа: 2 Автор ответа: Nj ICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #2 | Добавлено: 06.06.06 15:20 |
| Я тебе Ольга все сказал в твоей прошлой теме по этому вопросу с файлами - читала? Почитай. | ||
|
Номер ответа: 3 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #3 | Добавлено: 06.06.06 16:29 |
|
Ну зачем же так грубо?
Нужно считать числа (если они через запятую, что сойдет просто input). Затем отсортировать и при необходимости записать обратно... |
||
|
Номер ответа: 4 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #4 | Добавлено: 06.06.06 17:15 |
| ну, хотя бы тему надо нормально называть... вот, полюбуйтесь: зайдите в поиск и надерите эту тему. после двухминутного ожидания получите "список" гыгы | ||
|
Номер ответа: 5 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #5 | Добавлено: 06.06.06 17:29 |
| Ну с етим согласен.... | ||
|
Номер ответа: 6 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #6 | Добавлено: 06.06.06 18:19 |
| Сортировка. | ||
|
Номер ответа: 7 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #7 | Добавлено: 07.06.06 12:25 |
|
Open ... for binary
а затем при "," создавть новый элемент в динамическом массиве. |
||
|
Номер ответа: 8 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #8 | Добавлено: 07.06.06 12:27 |
| Тоже вариант. | ||
|
Номер ответа: 9 Автор ответа: Ольга Вопросов: 10 Ответов: 5 |
Профиль | | #9 | Добавлено: 07.06.06 13:09 |
|
вот :
2 коман. кнопки и ТекстБох Dim st As String Dim alltext As String Private Sub Command1_Click() ' ÷òåíèå Open "d:\1.txt" For Input As #1 Do While Not EOF(1) Input #1, st alltext = alltext + st + Chr(13) + Chr(10) Loop Text1.Text = alltext Close #1 End Sub Private Sub Command2_Click() ' Ñîðòèðîâêà è Çàïèñü â Ôàéë Dim d As Long alltext = Text1.Text d = Len(alltext) b = 1 ReDim x(1 To d) As String For i = 1 To d x(i) = Mid(alltext, i, ) Next For j = 1 To d For i = 1 To d - 1 If x(i) < x(i + 1) Then p = x(i): x(i) = x(i + 1): x(i + 1) = p Next i: Next j For i = 1 To d Text1.Text = x(i) Next Open "d:\1.txt" For Append As #1 Print #1, Text1.Text Close #1 End Sub - - - - - но Бейсик...не сортирует, В ЧЕМ ОШИБКА? ПОМОГИТЕ??? |
||
Страница: 1 |