Daten aus Tabelle in TextFile

Gespeichert von Gast am
im Forum ArcView 3.x classic
Schönen guten Morgen,
wie kann ich aus einer AV-Tabelle von selektierten Datensätzen die Daten einer Spalte in eine TextDatei schreiben ?
Klaus

Gespeichert von Maxilla am Mo., 15.11.2004 - 11:28

Permalink
Moin Klaus,

- Datensätze selektieren

- Alle nicht benötigten Felder über 'Tabelle | Eigenschaften' auf "unsichtbar" stellen (Strg-Taste kann hilfreich sein)

- 'Datei | Exportieren' --> Format 'Delimited Text'
...

Gespeichert von Gast am Mo., 15.11.2004 - 11:32

Permalink
Danke Maxilla,
ich hätts gerne in einem Script...
Beim Exportieren nach UltraEdit gehts so:
'Open the active script in UltraEdit
theFN = ("$TEMP"+"/"+av.GetActiveDoc.GetName+".ave").AsFileName
theTextFile = TextFile.Make(theFN, #FILE_PERM_WRITE)
theTextFile.Write(av.GetActiveDoc.GetSource, av.GetActiveDoc.GetSource.Count)
theTextFile.Close

theDLLFN = FileName.FindInSystemSearchPath("shell32.dll")
theDLL = DLL.Make(theDLLFN)
theWinDrive = theDLLFN.AsString.Left(3)
theFileStringNum = 0
theProcedure=DLLProc.Make(theDLL, "ShellExecuteA", #DLLPROC_TYPE_INT32,
{#DLLPROC_TYPE_INT32, #DLLPROC_TYPE_STR, #DLLPROC_TYPE_STR,
#DLLPROC_TYPE_STR, #DLLPROC_TYPE_STR, #DLLPROC_TYPE_INT32})
theProcedure.Call({DLL.GetAVWindowHandle, "open", theFN.GetFullName, "", theWinDrive, 1})

Hilft mir das weiter ? Wie muss ich das ändern ??
Klaus

Gespeichert von Maxilla am Mo., 15.11.2004 - 11:39

Permalink
Schau dir am besten das Systemscript "Table.Export" an (hier schon mal auf Format Textfile begrenzt):

theTable = av.GetActiveDoc

theClass = DTXT
theFilter = "*.txt"
theExt = "txt"

theFileName=FileDialog.Put(av.GetProject.MakeFileName("table", theExt),
theFilter,"Export Table")
if (theFileName = NIL) then return nil end

theVTab = theTable.GetVTab
ext = theFileName.GetExtension
if (((theClass.IsSubclassOf(DTXT)) or (theClass.IsSubClassOf(DBASE))) and (ext <> theExt)) then
theFileName.SetExtension(theExt)
end

if (theVTab.GetSelection.Count=0) then
theVTab.Export(theFileName, theClass, FALSE)
av.ShowMsg("All records written to"++theFileName.GetBaseName)
else
theVTab.Export(theFileName, theClass, TRUE)
av.ShowMsg("Selected records written to"++theFileName.GetBaseName)
end
if (System.GetOS = #SYSTEM_OS_MAC) then
Script.Make("MacClass.SetDocInfo(SELF, Table)").DoIt(theFileName)
end

Das Script exportiert alle selektierten Datensätze und alle sichtbaren Felder.
...
PS.: Das von dir gepostete Script exportiert ein Script, keine Tabelle...

Gespeichert von Gast am Mo., 15.11.2004 - 12:10

Permalink
Danke,
Du hast natürch recht !
(Werd mich bessern...)
Klaus