Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
sysrepos
Зарегистрирован: 22.10.2012 Сообщения: 39
|
Добавлено: Чт Апр 04, 2013 2:12 pm Заголовок сообщения: Как записать данные в текстовый файл без ковычек? |
|
|
Как записать данные в файл (из таблицы) без ковычек? (с помощью МапБэйсика)
пробовал через Export table Type ASCII и Export table Type MIF, и просто запись в файл (write #1, str)
везде добавляются кавычки в начале и в конце строки, то есть вместо того чтобы в текстовом файле было записано:
значение1
получается
"значение1"
Подскажите как сделать? чтобы тескт в файл вставлялся без ковычек? |
|
Вернуться к началу |
|
|
thegeo
Зарегистрирован: 17.01.2012 Сообщения: 119
|
Добавлено: Чт Апр 04, 2013 11:52 pm Заголовок сообщения: |
|
|
Например так:
Include "mapbasic.def"
Declare Sub Main
Declare Sub writeFile()
Sub Main
call writeFile
end sub
sub writeFile()
dim n,m,i,j as integer
dim pp,sTb,sCol as string
dim aa as alias
n=SelectionInfo(SEL_INFO_NROWS)
if n=0 then exit sub end if
sTb=SelectionInfo(SEL_INFO_SELNAME)
m=TableInfo(sTb,TAB_INFO_NCOLS)
pp=FileSaveAsDlg("C:\","","TXT","Сохранить данные")
if Len(pp)=0 then Exit sub end if
OnError GoTo theError
Open File pp For Output Access Write as #1 CharSet "WindowsCyrillic"
for i=1 to n
Fetch Rec i From sTb
for j=1 to m
aa=sTb & ".Col" & j
sCol=sCol & aa & ","
next
sCol=left$(sCol,len(sCol)-1)
Print #1 , sCol
next
theError:
Close File #1
end sub |
|
Вернуться к началу |
|
|
sysrepos
Зарегистрирован: 22.10.2012 Сообщения: 39
|
Добавлено: Пн Апр 08, 2013 2:49 pm Заголовок сообщения: |
|
|
спасибо |
|
Вернуться к началу |
|
|
|