Italian Stampare una List (ListView)

Discussion in 'Italian Forum' started by RobyLaga, Mar 14, 2019.

Tags:
  1. RobyLaga

    RobyLaga Member Licensed User

    Buongiorno,
    sono un "praticone" (Hobbista, hobby, passatempo), vorrei sapere se è possibile trovare il codice (anche a pagamento) per poter stampare una List generata da un file in una cartella del Cellulare.
    Non so se sono chiaro.
     

    Attached Files:

  2. Star-Dust

    Star-Dust Expert Licensed User

    Non sei chiaro abbastanza, cos'è un praticone?

    Stampare si intende in una stampante .
    Hai un file di testo in una cartella del dispositivo e la vuoi inviare alla stampante?
     
  3. RobyLaga

    RobyLaga Member Licensed User

    Praticone = hobbista
     
  4. Star-Dust

    Star-Dust Expert Licensed User

    Ma la lista è una ListView o è in un file?

    La devi stampare.o condividere con Whatsapp?
     
    RobyLaga likes this.
  5. Star-Dust

    Star-Dust Expert Licensed User

    Se devi condividere con WhatsApp usa la.libreria Social Share

    Tieni conto che con Android 6 devi prendere accorgimenti per condividere un file fra app. File nelle cartelle interne non si possono condividere e la root principale non è più accessibile
     
    Last edited: Mar 14, 2019
  6. Star-Dust

    Star-Dust Expert Licensed User

  7. RobyLaga

    RobyLaga Member Licensed User



    Eccomi,
    allora, da un file esterno(residente sulla memoria del cellulare) genero una ListView (Private ListViewArt33 As ListView) che la vedo con una Type ListViewData33(FirstRow33 As String, SecondRow33 As String) questa lista, genera delle righe di "prodotti" che ho precedentemente inserito, per intendersi, tipo un preventivo da mandare ad un cliente, e fin qui ok!, una volta completata e quindi pronta per essere spedita,
    vorrei spedirla per email, oppure generare un PDF(per poi spedirlo manualmente ma è un'operazione più lenta), oppure mandarla per WhatApp ...

     
  8. Star-Dust

    Star-Dust Expert Licensed User

  9. RobyLaga

    RobyLaga Member Licensed User

    Using an Email object you can create an intent that holds a complete email message.
    You can then launch the email application by calling StartActivity. Note that the email will not be sent automatically. The user will need to press on the send button.
    Example:
    Dim Message As Email
    Message.To.Add("SomeEmail@example.com")
    Message.Attachments.Add(File.Combine(File.DirRootExternal, "SomeFile.txt"))
    StartActivity(Message.GetIntent)

    qui d'accordo, il file SomeFile.txt lo mando con una e-mail ... però io devo mandare "porzioni" di FILE ... non il file completo,
    in quel file, ho voci che non posso spedire .... tutte insieme...
     
  10. Star-Dust

    Star-Dust Expert Licensed User

    Ho letto un pò il tuo codice, è una gran confusione..... comunque ecco come puoi mandare un email

    Code:
    Dim Testo as String=CreaText(File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt"))
        
    Dim Testo As String"Ciao"
        
    Dim em As Email

        em.Subject=
    "LISTA"
        em.Body=Testo
        em.To.Add(
    "destinatario@prvider.it")
        
    StartActivity(em.GetIntent)
    La sub CreaText, serve a caricare il file e trasformarlo in un testo simile ala listView:
    Code:
    Sub CreaText(Lista As ListAs String
        
    Dim Txt As String =""

        
    For i = 0 To 999
            
    'creo un mini array con tutte le parti della riga esaminata
            Dim stringArray() As String = Regex.Split("\|",Lista.get(i))
           
            Txt=Txt & stringArray(
    11) & CRLF
            Txt=Txt & stringArray(
    0) & " - " & stringArray(2) & " - " & stringArray(4) & " : " & stringArray(16) & CRLF
            Txt=Txt & 
    "_____________________________________________________" & CRLF
        
    Next
       
        
    Return Txt
    End Sub
     
    Last edited: Mar 14, 2019
  11. Star-Dust

    Star-Dust Expert Licensed User

    Se devi mandare su WhatsApp fai cosi:
    Code:
    Dim Testo as String=CreaText(File.ReadList(File.DirRootExternal, "VideoCam12/ListResults10.txt"))
    Dim Intent1 As Intent
    Intent1.Initialize(Intent1.ACTION_VIEW, 
    $"https://api.whatsapp.com/send?text=${Testo}"$)
    StartActivity(Intent1)
    CreaText già te l'ho inserito nel post precedente. Adesso il lavoro è tutto tuo
     
  12. RobyLaga

    RobyLaga Member Licensed User

    ti ho mandato un acconto .... (accontino :) )
     
  13. Star-Dust

    Star-Dust Expert Licensed User

    Grazie e Buon lavoro
     
    RobyLaga likes this.
  14. RobyLaga

    RobyLaga Member Licensed User


    una gran confusione ? :-(
     
  15. RobyLaga

    RobyLaga Member Licensed User

    CreaText come devo dichiararla ?
     
  16. Star-Dust

    Star-Dust Expert Licensed User

    E una sub che ti ho scritto sopra, la devi solo copiare nel tuo codice
     
  17. RobyLaga

    RobyLaga Member Licensed User

    Ho persino vergogna, ma per me, in questo momento, è sopravvivenza pura...
     
  18. Star-Dust

    Star-Dust Expert Licensed User

    Si abbastanza.
     
  19. RobyLaga

    RobyLaga Member Licensed User

  20. Star-Dust

    Star-Dust Expert Licensed User

    Copia questo sotto
    Code:
    Sub CreaText(Lista As ListAs String
        
    Dim Txt As String =""

        
    For i = 0 To 999
            
    'creo un mini array con tutte le parti della riga esaminata
            Dim stringArray() As String = Regex.Split("\|",Lista.get(i))
          
            Txt=Txt & stringArray(
    11) & CRLF
            Txt=Txt & stringArray(
    0) & " - " & stringArray(2) & " - " & stringArray(4) & " : " & stringArray(16) & CRLF
            Txt=Txt & 
    "_____________________________________________________" & CRLF
        
    Next
      
        
    Return Txt
    End Sub
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice