| Вопрос: Обработка данных | Добавлено: 14.12.06 18:26 |
Автор вопроса:  Napster | ICQ: 2889889 |
|
Ситуация такая - нужно сделать прогу типо расход - приходимеються 2 текстовых мультилаёновых поля.
В них вводяться числа, по числу на строчку. Нужно чтобы все числа сложились ну например 12 14 20 получаем 46 Вот я не могу понять как реализовать это разбиение по строкам и складывание. Помогите плиз |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #1 | Добавлено: 14.12.06 19:59 |
|
Вот так простая реализация
Private Sub Command1_Click()
Я не знаю моно, ли так с текстбоксом
Text1.Text = "" F = FreeFile Open App.Path & "\Справка.txt" For Input As #F Do Until EOF(F) Line Input #F, MyText Text1.Text = Text1.Text + MyText Loop Close #F End Sub ? |
||
|
Номер ответа: 2 Автор ответа: avdey ICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #2 | Добавлено: 14.12.06 20:35 |
| Не то. Афтару нужно сложить числа которые в текстбоксе... | ||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 14.12.06 21:32 |
| Split? | ||
|
Номер ответа: 4 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #4 | Добавлено: 14.12.06 21:47 |
|
Не то. Афтару нужно сложить числа которые в текстбоксе... тогда отыскивать символ новой строки через instr, и от нее читать число до следующей. Но это ИМХО мудновато. А мой будет проще: записал в файл, а счиатал уж сложив. Хотя по идее я думал, что то же моно с текстбоксом моно сделать , просто я не все знаю. И не знаю, как это моно для текстбокса построчно считывать (принт, инпутлине - не рулят  ) Я имею ввиду их замену Split? А что это, Sharp?
|
||
|
Номер ответа: 5 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #5 | Добавлено: 15.12.06 08:44 |
| Конечно Split. А потом в цикле сложить. | ||
|
Номер ответа: 6 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 15.12.06 10:16 |
| Split - это функция | ||
|
Номер ответа: 7 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #7 | Добавлено: 15.12.06 12:02 |
|
Split?
А что это, Sharp? Public Shared Function Split(ByVal Expression As String, Optional ByVal Delimiter As String = " "
 As String()Только осталось узнать Delimiter в Multiline TextBox... Мож Chr(13) or Chr(10)??? |
||
|
Номер ответа: 8 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #8 | Добавлено: 15.12.06 12:42 |
|
Только осталось узнать Delimiter в Multiline TextBox... Мож Chr(13) or Chr(10)??? А что тут узнавать то.
Split(Text1.Text, vbNewLine)
|
||
|
Номер ответа: 9 Автор ответа: Napster ICQ: 2889889 Вопросов: 5 Ответов: 23 |
Профиль | | #9 | Добавлено: 15.12.06 16:03 |
| a после Split(Text1.Text, vbNewLine) что? | ||
|
Номер ответа: 10 Автор ответа: NapsterICQ: 2889889 Вопросов: 5 Ответов: 23 |
Профиль | | #10 | Добавлено: 15.12.06 16:03 |
| a после Split(Text1.Text, vbNewLine) что? | ||
|
Номер ответа: 11 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #11 | Добавлено: 15.12.06 17:50 |
| Split(Text1.Text, vbCrLf) | ||
|
Номер ответа: 12 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #12 | Добавлено: 18.12.06 10:51 |
|
a после Split(Text1.Text, vbNewLine) что?
Dim Arr() As String
Arr = Split("Part1:Part2:Part3", ":"
Msgbox (Arr(0)) '= "Part1" Msgbox (Arr(1)) '= "Part2" Msgbox (Arr(2)) '= "Part3" |
||
|
Номер ответа: 13 Автор ответа: NapsterICQ: 2889889 Вопросов: 5 Ответов: 23 |
Профиль | | #13 | Добавлено: 18.12.06 21:29 |
| а как посчитать колличество строк. нужно что бы цикл сделать | ||
|
Номер ответа: 14 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #14 | Добавлено: 18.12.06 23:13 |
| for i=lbound(arr) to ubound(arr) | ||
Страница: 1 |