I am using Delphi scripts...
I tried the aqstring approach. My data is actually comes from the clipboard and is then copied into a variable.
aqString.ListSeparator := '#13'; // I have tried #13#10, \r\n, #13
ShowMessage(MyTextToWrite); // Shows the entire variable human readable
ShowMessage(aqString.GetListLength(MyTextToWrite)); // in all attemps listed above, it returns the value 1, I tried '.' (period) and it does return a large number not usable in this case.
How should I specify the CrLf in the ListSeperator ?
Here's a paste of what was written to file using ...(The file contains a little more than 14000 lines (331KB))
aqFile.WriteToTextFile(sPath, MyTextToWrite, aqFile.ctUTF8);
************************************************************
QA Title: GetQACurrentScreenInfo
QA From: frmRxPro.pgcMain.tbsSummary.fraSummary.pgcSummary.tbsDrug.fraDrug.dbgrdSummary
QA Début: 2012-03-05 11:37:24.278
************************************************************
[frmRxPro.pgcMain.tbsSummary.fraSummary.pgcSummary.tbsDrug.fraDrug (TframeSumDrug)]
Caption=
Align: alClient
AlignWithMargins: False
Anchors: [akLeft,akTop,akRight,akBottom]
AutoScroll: False
AutoSize: False
BiDiMode: bdLeftToRight
Color: 13160660
Constraints: (TSizeConstraints)
Constraints: MaxHeight: 0
Constraints: MaxWidth: 0
Constraints: MinHeight: 0
Constraints: MinWidth: 0
Ctl3D: True
Cursor: 0
CustomHint: (TCustomHint)
DockSite: False
DoubleBuffered: False
DragCursor: -12
DragKind: dkDrag
DragMode: dmManual
Enabled: True
Font: (TFont)
Font: Charset: 1
Font: Color: -16777208
Font: Height: -11
Font: Name: 'Tahoma'
Font: Orientation: 0
Font: Pitch: fpDefault
Font: Size: 8
Font: Style: []
Height: 535
HelpContext: 20100
HelpKeyword: ''
HelpType: htContext
Hint: ''
HorzScrollBar: (TControlScrollBar)
HorzScrollBar: ButtonSize: 0
HorzScrollBar: Color: -16777196
HorzScrollBar: Increment: 8
HorzScrollBar: Margin: 0
HorzScrollBar: ParentColor: True
HorzScrollBar: Position: 0
HorzScrollBar: Range: 0
HorzScrollBar: Size: 0
HorzScrollBar: Smooth: False
HorzScrollBar: Style: ssRegular
HorzScrollBar: ThumbSize: 0
HorzScrollBar: Tracking: False
HorzScrollBar: Visible: True
Left: 0
Margins: (TMargins)
Margins: Bottom: 3
Margins: Left: 3
Margins: Right: 3
Margins: Top: 3
Name: 'fraDrug'
Padding: (TPadding)
Padding: Bottom: 0
Padding: Left: 0
Padding: Right: 0
Padding: Top: 0
ParentBackground: True
ParentBiDiMode: True
ParentColor: True
ParentCtl3D: True
ParentCustomHint: True
ParentDoubleBuffered: True
ParentFont: False
ParentShowHint: True
PopupMenu: (TPopupMenu)
ShowHint: False
TabOrder: 0
TabStop: False
Tag: 0
Top: 0
Touch: (TTouchManager)
Touch: GestureManager: (TCustomGestureManager)
Touch: InteractiveGestureOptions: [igoPanSingleFingerHorizontal,igoPanSingleFingerVertical,igoPanInertia,igoParentPassthrough]
Touch: InteractiveGestures: [igPan,igPressAndTap]
Touch: ParentTabletOptions: True
Touch: TabletOptions: [toPressAndHold]
VertScrollBar: (TControlScrollBar)
VertScrollBar: ButtonSize: 0
VertScrollBar: Color: -16777196
VertScrollBar: Increment: 8
VertScrollBar: Margin: 0
VertScrollBar: ParentColor: True
VertScrollBar: Position: 0
VertScrollBar: Range: 0
VertScrollBar: Size: 0
VertScrollBar: Smooth: False
VertScrollBar: Style: ssRegular
VertScrollBar: ThumbSize: 0
VertScrollBar: Tracking: False
VertScrollBar: Visible: True
Visible: True
Width: 982
[frmRxPro.pgcMain.tbsSummary.fraSummary.pgcSummary.tbsDrug.fraDrug.Label11 (TLabel)]
Caption=&Dossier:
Align: alNone
Alignment: taLeftJustify
AlignWithMargins: False
Anchors: [akLeft,akTop]
AutoSize: False
BiDiMode: bdLeftToRight
Caption: '&Dossier:'
Color: 13160660
Constraints: (TSizeConstraints)
Constraints: MaxHeight: 0
Constraints: MaxWidth: 0
Constraints: MinHeight: 0
Constraints: MinWidth: 0
Cursor: 0
CustomHint: (TCustomHint)
DragCursor: -12
DragKind: dkDrag
DragMode: dmManual
EllipsisPosition: epNone
Enabled: True
FocusControl: cboSumPeriod
Font: (TFont)
Font: Charset: 1
Font: Color: -16777208
Font: Height: -11
Font: Name: 'Tahoma'
