table field sınırı

do home()+"SampleDataAsText" with "tablo1,0"

do home()+"SampleDataAsText" with "tablo2,0"

do home()+"SampleDataAsText" with "tablo3,0"

do home()+"SampleDataAsText" with "tablo4,0"

* SampleDataAsText.prg

*- Author Cetin BASOZ

Lparameters tcInfo

LOCAL loCloseTemp, ix

loCloseTemp = CREATEOBJECT('CloseTemp')

 

LOCAL ARRAY laInfo[1]

Create Cursor crsSampler (procedureName m, procedureCode m)

For ix = 1 To ALINES(laInfo,m.tcInfo,1+4,',',CHR(13),CHR(10)) STEP 2

  GetProcedureCode(laInfo[m.ix],VAL(laInfo[m.ix+1]))

Endfor

DataCreationCodeToClip()

MESSAGEBOX('Data creation is copied to clipboard',0,'Sample Data',3000)

 

Procedure DataCreationCodeToClip

  Local Array aProcCode[1]

  Local lcTemp1,lcTemp2

  lcTemp1 = Sys(2015)+'.tmp'

  lcTemp2 = Sys(2015)+'.tmp'

  Select crsSampler

  Scan

    Strtofile(procedureName,m.lcTemp1,.T.)

    Strtofile(procedureCode,m.lcTemp2,.T.)

  Endscan

  _Cliptext = Filetostr(m.lcTemp1) + Filetostr(m.lcTemp2)

  Erase (m.lcTemp1)

  Erase (m.lcTemp2)

Endproc

 

Procedure GetProcedureCode(tcAlias,tnRecords)

  Local lcTemp, ix, lcData, lcRetVal

  lcTemp = Sys(2015)+'.tmp'

  If !Used(m.tcAlias)

    Select * From (m.tcAlias) Into Cursor crsSampling nofilter

    lcCursorName = Juststem(m.tcAlias)

  Else

    Select (m.tcAlias)

    lcCursorName = Alias()

  Endif

  Locate

  If Empty(m.tnRecords)

    Copy To (m.lcTemp) Type Delimited

  Else

    Copy To (m.lcTemp) Type Delimited Next m.tnRecords

  Endif

  lcData = Filetostr(m.lcTemp)

  Erase (m.lcTemp)

 

  Set Textmerge Delimiters To '%%','%%'

  Set Textmerge To (m.lcTemp) Noshow

  Set Textmerge On

\

\ Procedure CreateCursor_%%m.lcCursorName%%

\ LOCAL lcData, lcTemp

\ lcTemp = SYS(2015)+'.tmp'

\ TEXT TO m.lcData noshow

\ %%m.lcData%%

\ ENDTEXT

\

\ STRTOFILE(m.lcData,m.lcTemp)

\

\ create CURSOR %%m.lcCursorName%% ;

\ ( ;

  For ix=1 To Afields(aStruc)

\  %%IIF(m.ix > 1,',','')%%

\\%%aStruc[m.ix,1]%% %%aStruc[m.ix,2]%%(%%aStruc[m.ix,3]%%,%%aStruc[m.ix,4]%%)

\\ %%IIF(aStruc[m.ix,5],'',' NOT ')%% NULL

\\ %%IIF(aStruc[m.ix,6],'NOCPTRANS','')%% ;

  Endfor

\  )

\

\ APPEND FROM (m.lcTemp) TYPE delimited

\ ERASE (m.lcTemp)

\ endproc

  Set Textmerge To

  Set Textmerge Off

  Insert Into crsSampler Values (    Textmerge('CreateCursor_%%m.lcCursorName%%()%%CHR(13)+CHR(10)%%'), Filetostr(m.lcTemp) )

  Set Textmerge Delimiters

  Erase (m.lcTemp)

ENDPROC

 

** Class to close any cursors created after it was instantiated

** Author: Dragan Nedeljkovich

Define Class CloseTemp As Custom

  Dimension a1[1]

  nFiles=0

  Procedure Init

    This.nFiles=Aused(atemp)

    If This.nFiles > 0

      Acopy(atemp, This.a1)

    Else

      This.a1=""

    Endif

  endproc

 

  Procedure Destroy

    For i=1 To Aused(aNow)

      If Ascan(This.a1, aNow[i,1],-1,-1,1,2+4)=0

        Use In aNow[i,1]

      Endif

    Endfor

  endproc

Enddefine