нужен совет
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
нужен совет - 2007-02-08 23:10:55.473333
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
Нужно сделать алгоритм для анализа переменной. Она содержит ФИО некого лица. Нам нужно в другую переменную записать лишь его фамилию. Как это можно релизовать?
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:15:47.670000
|
|
|
ВИТАХА
Сообщений: 1017
Оценки: 0
Присоединился: 2006-12-27 00:18:16.020000
|
А в чем это ты делаешь???на каком языке?
По ходу наилучший вариант это когда все это масив.Дальше по первой букве и до первого пробела все записываешь в базу или в файл(или до большей по регистру буквы).
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:19:00.380000
|
|
|
sinker
Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000
|
Тупо перебрать строку посимвольно пока не достигнем первого пробела. Все, что было до того - Фамилия. Алгоритм просто примитивный :)
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:21:46.993333
|
|
|
ВИТАХА
Сообщений: 1017
Оценки: 0
Присоединился: 2006-12-27 00:18:16.020000
|
Но если это на сайте через форму то еще плюс функцию фильтра доклепать придется,а на щет алгоритма то хоть и примитивен зато работает.(Все гениальное просто)
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:24:21.030000
|
|
|
sinker
Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000
|
quote:
ORIGINAL: ВИТАХА
Но если это на сайте через форму то еще плюс функцию фильтра доклепать придется,а на щет алгоритма то хоть и примитивен зато работает.(Все гениальное просто)
А если фамилия двойная (через пробел). Тогда алгоритм не катит
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:24:40.563333
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
Если например на VBA это делать, сам знаю что он примитивный, но нифига не получается. Про пробелы сразу фишку придумал, а как сделать анализ переменной по символам?
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:29:00.476666
|
|
|
sinker
Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000
|
ПАСКАЛЬ\ДЕЛЬФИ пусть с - ФИО
var s,name:string;
i:integer;
begin
//…
name:='';
for i:=1 to length(s) do
if s{i}=' ' then break else name:=name+s{i};
//теперь name - фамилия
//…
end.
Вместо {} должны быть квадратные скобки - знал бы я как их ставить …
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:34:13.986666
|
|
|
ВИТАХА
Сообщений: 1017
Оценки: 0
Присоединился: 2006-12-27 00:18:16.020000
|
Ну это уже экзотика согласись,да и правила заполнения существуют.
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:35:13.130000
|
|
|
sinker
Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000
|
Задача уровня 9 класса школы. :)
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:36:16.380000
|
|
|
ВИТАХА
Сообщений: 1017
Оценки: 0
Присоединился: 2006-12-27 00:18:16.020000
|
quote:
Задача уровня 9 класса школы.
Сорри за оффтоп,может так оно и есть?
|
|
|
|
|
RE: нужен совет - 2007-02-08 23:52:41.083333
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
Раз всё так просто)))
напишите на VB алгоритм)))
|
|
|
|
|
RE: нужен совет - 2007-02-09 01:40:59.950000
|
|
|
ВИТАХА
Сообщений: 1017
Оценки: 0
Присоединился: 2006-12-27 00:18:16.020000
|
Ну во первых надо чтобы стимул был,но даже если уж на то пошло то могу на Яве на С++ на Пасе и на ПХП но не на басике.
|
|
|
|
|
RE: нужен совет - 2007-02-09 09:33:19.886666
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
Самый нормальныей способ:
function Parse(Char, S: string; Count: Integer): string;
var
I: Integer;
T: string;
begin
if S[Length(S)] <> Char then
S := S + Char;
for I := 0 to Count do
begin
T := Copy(S, 0, Pos(Char, S) - 1);
S := Copy(S, Pos(Char, S) + 1, Length(S));
end;
Result := T;
end;
Пример использования:
var
S, A: String;
begin
S := 'Abc Ads EEE';
A := Parse(' '{пробел}, S, 0);
// A = Abc
end;
|
|
|
|
|
RE: нужен совет - 2007-02-09 16:51:31.040000
|
|
|
Technologist
Сообщений: 3590
Оценки: 0
Присоединился: 2006-10-28 20:28:06.943333
|
quote:
ORIGINAL: x-coder
Нужно сделать алгоритм для анализа переменной. Она содержит ФИО некого лица. Нам нужно в другую переменную записать лишь его фамилию. Как это можно релизовать?
ООП
|
|
|
|
|
RE: нужен совет - 2007-02-09 21:09:07.700000
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
ВИТАХА
стимул - это огромное человеческое спасибо )))
|
|
|
|
|
RE: нужен совет - 2007-02-09 23:44:35.413333
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
Вот например такой код.
NN -это переменная с ФИО
Mid - ф-я которая выделяет оперделённое количеств символов
Dim NN As String
Dim i As Integer
NN = Label12.Caption
For i = 1 To 30
VP = Mid(NN, 1, i)
If VP = "" Then
VP = VP
Exit For
End If
Next i
MsgBox VP только не могу понять почему не пашет:(((
|
|
|
|
|
RE: нужен совет - 2007-02-10 20:32:45.173333
|
|
|
sinker
Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000
|
Похоже, здесь в VB никто не смыслит
|
|
|
|
|
RE: нужен совет - 2007-02-10 21:16:19.510000
|
|
|
ВИТАХА
Сообщений: 1017
Оценки: 0
Присоединился: 2006-12-27 00:18:16.020000
|
quote:
Похоже, здесь в VB никто не смыслит
Этот язык уже скоро перейдет вобще в екзотику как фортран…
|
|
|
|
|
RE: нужен совет - 2007-02-10 21:39:00.576666
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
ВИТАХА
вот в этом ты не прав! на нём можно делать много полезных вещей. Таких как макросы, различные приложения для офиса…
|
|
|
|
|
RE: нужен совет - 2007-02-10 21:42:12.180000
|
|
|
ВИТАХА
Сообщений: 1017
Оценки: 0
Присоединился: 2006-12-27 00:18:16.020000
|
Но изучать его и писать на нем только ради этого,это че то не то…согласись что если бы так было то очень много людей писали бы именно на нем ане только лабы в школе делали?ты даже вспомни недавний вирус написан на нем который давал сбой потому что небыло нужных ему компонентов ВБ…это просто убого…
|
|
|
|
|
RE: нужен совет - 2007-02-10 21:55:27.256666
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
ВИТАХА
я не говорю про вредоносные программы, а про полезный софт. Например VBA не требует библиотек, всё что ему нужно идёт вместе с офисом:) я же не предлагаю писать троя на VB, а лишь говорю о там что этот языу полезен:)
|
|
|
|
|
RE: нужен совет - 2007-02-10 21:58:52.060000
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
Кстати, вот я и решил проблему этого топика:)
Так мне ни кто и не помог:)
вот:
Dim NN As String
fio = Label12.Caption
x = Split(Trim(fio))
FAM = x(0)
MsgBox FAM Всё просто на самом деле)))
|
|
|
|
|
RE: нужен совет - 2007-02-10 22:02:44.366666
|
|
|
ВИТАХА
Сообщений: 1017
Оценки: 0
Присоединился: 2006-12-27 00:18:16.020000
|
Я бы помог да только ВБ никогда не изучал,а то что сам написал это даже + тебе.И все таки ВБ это уже уходящее…
ЛЕКС ЗАКРЫВАЙ ТЕМУ!
|
|
|
|
|
|
