<div dir="auto">Funny ...<div dir="auto">The two ot three last char of each line are repeated on the next one.. cant test now</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Le jeu. 18 juil. 2019 14:40, Gianluigi <<a href="mailto:bagonergi@gmail.com">bagonergi@gmail.com</a>> a écrit :<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Hi Benoit,<br>I can't paste correctly in the IDE of the code printed by the IDE itself in pdf.<br>Following the code copied and pasted: [0]<br><br>Do I miss anything?<br><br>Regards<br>Gianluigi<br><br>[0] ' Gambas module file<br><br>Public Sub Main()<br><br>  Dim sPath As String = User.Home &/ Application.Name<br><br>  If Not Exist(sPath) Then Try Mkdir sPath<br>  sPath = sPath &/ "Database"<br>  If Not Exist(sPath) Then Try Mkdir sPath<br>  Connections["Connection1"].host = sPath<br>  If Not Exist(sPath &/ "test.sqlite") Then Try Copy "./Database/test.sqlite" To sPath &/ "test.sqlite"<br>  Connections["Connection1"].Name = "test.sqlite"<br>  FMain.Show<br><br>End<br><br>'' PASTE RESULT<br><br>' Gambas module file<br>Public Sub Main()<br>()<br>Dim sPath As String = User.<br>.Home &/ Application.<br>.Name<br>If Not Exist<br>Exist(<br>(sPath)<br>) Then Try Mkdir sPath<br>sPath = sPath &/ "Database"<br>If Not Exist<br>Exist(<br>(sPath)<br>) Then Try Mkdir sPath<br>Connections[<br>["Connection1"].<br>].host = sPath<br>If Not Exist<br>Exist(<br>(sPath &/ "test.sqlite")<br>) Then Try Copy "./Database/test.sqlite" To sPath &/<br>"test.sqlite"<br>Connections[<br>["Connection1"].<br>].Name = "test.sqlite"<br>FMain.<br>.Show<br>End<br></div>
<br>
----[ Gambas mailing-list is hosted by <a href="https://www.hostsharing.net" rel="noreferrer noreferrer" target="_blank">https://www.hostsharing.net</a> ]----<br>
</blockquote></div>