mapbasic学习之-将txt文件导入 导出mapinfo.docx

LayoutText.mb Copyright ?2004 by Bill Thoen This is free software.Include MapBasic.defDeclare Sub MainDeclare Sub DumpText (ByVal nLayoutID As Integer, ByVal sFile As String, ByVal fontBase As Font, ByVal fStartX As Float, ByVal fStartY As Float)Declare Sub ParseStyles (ByVal sText As String, nStyles() As Integer, sStrings() As String)Sub MainDim sFile As StringDim h As IntegerDim nLayout As IntegerDim fontBase As FontDim fStartX, fStartY As FloatsFile = FileOpenDlg (ApplicationDirectory$(), TextFile.txt, TXT, Select a text file:)fontBase = MakeFont (Arial, 0, 9, BLACK, -1)Dialog Title Text Output to LayoutControl StaticText Position 8, 8 Title Top margin:Control EditText Position 50, 8 Value 0.75 Into fStartYControl StaticText Position 8, 22 Title Left margin:Control EditText Position 50, 22 Value 0.75 Into fStartXControl StaticText Position 8, 42 Title Base Font:Control FontPicker Position 50, 36 Value fontBase Into fontBaseControl OkButton Position 8,60Control CancelButton Position 50,60If NOT CommandInfo (CMD_INFO_DLG_OK) ThenExit SubEnd IfOpen a new layout windowLayout Position (0.1, 0.1) Units inWidth 4.5 Units in Height 3 Units innLayout = FrontWindow()Call DumpText (nLayout, sFile, fontBase, fStartX, fStartY)End SubSub DumpText (ByVal nLayoutID As Integer, ByVal sFile As String, ByVal fontBase As Font,ByVal fStartX As Float,ByVal fStartY As Float)Dim sLayoutName As StringDim objText As ObjectDim x1, x2 As FloatDim sText, sFont, sStrings() As StringDim fCoordX, fCoordY As FloatDim nStyles(), nSize As IntegerDim nForeColor, nBackcolor As IntegerDim fLineHeight As FloatDim i, j As SmallIntDim h As Integer Left marginfCoordY = fStartY Get the font attributessFont = StyleAttr(fontBase, FONT_NAME)nSize = StyleAttr(fontBase, FONT_POINTSIZE)nForeColor = StyleAttr(fontBase, FONT_FORECOLOR)nBackcolor = StyleAttr(fontBase, FONT_BACKCOLOR) Change to Layout spaceSet CoordSys Layout Units inGrab the Layout table name sLayoutName = WindowInfo (nLayoutID, WIN_INFO_TABLE)Rea