|
Помогите с кодом в FPD 2.5
|
||
|---|---|---|
Участник
Откуда: Днепропетровск, Украина
Сообщения: 1 194 |
||
| 26.03.2007, 09:07 |
|
|
|
|
|
Помогите с кодом в FPD 2.5
|
|||
|---|---|---|---|
|
#18+
Есть определенный каталог. В нем около 30 таблиц. Необходимо одной программулиной изменить значение поля TAB по определенному алгоритму (вставить после третьего символа 0) во всех таблицах где такое поле есть. Кому не сложно подмогите..... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.03.2007, 07:47 |
|
||
|
Помогите с кодом в FPD 2.5
|
|||
|---|---|---|---|
|
#18+
Функцией ADir() получаешь список таблиц в каталоге, затем в цикле открываешь таблицу из списка, комвндой REPLACE меняешь поле, закрываешь таблицу ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.03.2007, 09:07 |
|
||
|
Помогите с кодом в FPD 2.5
|
|||
|---|---|---|---|
|
#18+
Если простенько без всяких проверок то может быть так. CLOSE DATABASES SET DEFAULT TO (HOME() + 'YourData') Dbfnumber = ADIR(arDatabase, '*.DBF') FOR nCount = 1 TO Dbfnumber use (arDatabase(nCount,1)) Fieldcount = AFIELDS(arMyArray) FOR iCount = 1 TO Fieldcount if arMyArray(iCount,1)='TAB' repl all tab with subs(tab,1,3)+'0'+subs(tab,4) exit endif endfor ENDFOR ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.03.2007, 09:14 |
|
||
|
Помогите с кодом в FPD 2.5
|
|||
|---|---|---|---|
|
#18+
Спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.03.2007, 09:27 |
|
||
|
Помогите с кодом в FPD 2.5
|
|||
|---|---|---|---|
|
#18+
А если TAB имее тип Numeric ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.03.2007, 10:51 |
|
||
|
|
start [/forum/topic.php?fid=41&msg=34414509&tid=1589656]: |
0ms |
get settings: |
7ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
162ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
40ms |
get tp. blocked users: |
1ms |
| others: | 200ms |
| total: | 445ms |
| 0 / 0 |
