<div dir="ltr"><div dir="ltr"><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Il giorno mer 22 lug 2020 alle ore 13:06 Christof Thalhofer <<a href="mailto:chrisml@deganius.de">chrisml@deganius.de</a>> ha scritto:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Am 22.07.20 um 10:46 schrieb John Rose:<br>
<br>
> Using Gambas 3.15 from stable builds.<br>
<br>
You mail is beeing bonced from all Gmail servers because of the<br>
'TestApp.tar.gz' attachment.<br>
</blockquote><div><br></div><div><br></div><div>Maybe attaching zip files will bypass the problem...<br><br>I would propose to John such a thing:<br><br>[code]<br>Public Sub Form_Open()<br> Dim sProgrammes As New String[] ' NEW<br> Dim sProgramme As String<br> Dim aProg, aIndex, aChannel, aPid As New String[]<br> <br> Me.Title = "TestApp: Version " & Application.Version<br> <br> sProgrammes.Add("51: A History of Art in Three Colours - Blue, BBC Four, b01lcz2s")<br> sProgrammes.Add("52: A House Through Time: Series 1 - Episode 1, BBC Two, b09l64zg")<br> sProgrammes.Add("xyz: Rubbish, BBC Two, r123qw9x")<br> sProgrammes.Add("7691: Your Money and Your Life: Series 1 - Episode 10, BBC One, m000kc5x")<br> '-------------------------------------------<br> ComboBoxProgramme.List = sProgrammes<br> For i As Integer = 0 To sProgrammes.Max<br> sProgramme = sProgrammes.Pop()<br> aIndex.Add(Trim(Scan(sProgramme, "*:*,*,*")[0]))<br> aProg.Add(Trim(Scan(sProgramme, "*:*,*,*")[1]))<br> aChannel.Add(Trim(Scan(sProgramme, "*:*,*,*")[2]))<br> aPid.Add(Trim(Scan(sProgramme, "*:*,*,*")[3]))<br> Next<br> ComboBoxIndex.List = aIndex.Reverse()<br> ComboBoxName.List = aProg.Reverse()<br> ComboBoxChannel.List = aChannel.Reverse()<br> ComboBoxPID.List = aPid.Reverse()<br><br>End<br><br>Public Sub ComboBoxProgramme_Click()<br> <br> Dim s As String = ComboBoxProgramme.Text<br> Dim ss As String[] = Scan(s, "*:*,*,*")<br> <br> ComboBoxIndex.Text = Trim(ss[0])<br> ComboBoxName.Text = Trim(ss[1])<br> ComboBoxChannel.Text = Trim(ss[2])<br> ComboBoxPID.Text = Trim(ss[3])<br> <br>End<br>[/code]<br><br>Regards<br>Gianluigi <br></div></div></div>