[Risolto] WebView Paste senza formattazione

[Gianluigi]

 
WebView: Sto cercando di ottenere il “paste” del testo senza formattazione (es. da LibreOffice Writer), con Ctrl+V funziona, mentre con la voce di menu no (funziona solo con poche parole).
Dove sto sbagliando? C’è forse un’impostazione che non conosco?
Vedere progetto allegato.

 

[tornu]

Ciao Gianluigi,
ti premetto di non conoscere il componente WebView, e se dico qualche fesseria ti chiedo scusa anticipatamente,
ma essendo curioso ho voluto fare una prova.
Ho aperto un documento con LibreOffice Writer, ho selezionato del testo, avviato il tuo esempio ho incollato lo
stesso clikkando su Paste del menu popup della WebView e la console mi ha visualizzato il testo.
Non so se la prova da fare era questa, se la risposta è sì ti dico che il testo viene incollato correttamente da poche
parole a varie pagine. Ti allego uno screenshot.

[Gianluigi]

Ciao Tornu,
ti ringrazio per la prova, purtroppo questo conferma che la voce di menu non funziona.
Infatti se provi invece con Ctrl+V puoi vedere che il testo si incolla (non formattato) sulla WebView, almeno spero 

Prima mi ero dimenticato di precisare che ho fatto anche altre prove, prima di tutto l’uso di paste

Codice: [Seleziona]

Public Sub mnPaste_Click()
  
  Dim s As String
  
  s = Clipboard.Paste("text/plain")
  If IsNull(s) Then Return  
  Clipboard.Copy(s)
  WebView1.Eval("document.execCommand('Paste', false, false)")
  
End

Comunque tutte senza esito soddisfacente.

 

[tornu]

Sì è vero con Ctrl+V funziona.
Con questa modifica funziona anche dal menu popup, utilizzando al posto di WebView1.Eval,WebView1.HTML

Codice: [Seleziona]

Public Sub mnPaste_Click()
  Dim s As String

  s = Clipboard.Paste("text/plain")
  If IsNull(s) Then Return
  s = "<div>" & s & "</div>"  
  s = Replace(s, "\n", "</div><br><div>")
  s = Replace(s, ".", ".</div><div>")

  WebView1.HTML = s
End

[Gianluigi]

Con questa modifica funziona anche dal menu popup, utilizzando al posto di WebView1.Eval,WebView1.HTML

Codice: [Seleziona]

Public Sub mnPaste_Click()
  Dim s As String

  s = Clipboard.Paste("text/plain")
  If IsNull(s) Then Return
  s = "<div>" & s & "</div>"  
  s = Replace(s, "\n", "</div><br><div>")
  s = Replace(s, ".", ".</div><div>")

  WebView1.HTML = s
End

Solo apparentemente, in realtà sostituisce tutto quello che già c'è e comunque anche con debiti accorgimenti, non potresti mai ottenere il comportamento che ottieni da Ctrl+V puoi controllare cosa intendo usando il pulsante che stampa il codice nella console.

Per meglio spiegarmi, un "normale" incollaggio lo puoi fare più volte e inserendolo in posizioni differenti.

 

[Gianluigi]

Potrei aver risolto con un trucco:

Codice: [Seleziona]

Public Sub mnPaste_Click()
  
  Dim s, p As String
  
  s = Clipboard.Paste("text/plain")
  If IsNull(s) Then Return
  p = "[xhpz5]"
  WebView1.Eval(Subst("document.execCommand('InsertHTML', false,'&1')", p))
  s = "<div>" & s & "</div>"  
  s = Replace(s, "\n", "</div><br><div>")
  s = Replace(s, ".", ".</div><div>")
  WebView1.HTML = Replace(WebView1.HTML, p, s)
  
End

Cosa ne pensate?

 

[Gianluigi]

Contrordine ragazzi, 
il codice

Codice: [Seleziona]

Public Sub mnPaste_Click()
  
  Dim s As String
  
  s = Clipboard.Paste("text/plain")
  Clipboard.Copy(s)  
  WebView1.Eval("document.execCommand('Paste', false,false)")
  
End

funziona, l'importante è settare con

Codice: [Seleziona]

WebSettings[WebSettings.JavascriptCanAccessClipboard] = True

Evidentemente sbagliavo qualcosa o non ricompilavo prima delle prove, scusate il disturbo. 
E pensare che ci sono diventato matto...

Conferme a questo sarebbero gradite 

[tornu]

Funziona perfettamente. 

[Gianluigi]

Ok grazie posso mettere risolto.

 

[Gianluigi]

WebView: Sto cercando di ottenere il “paste” del testo senza formattazione (es. da LibreOffice Writer), con Ctrl+V funziona, mentre con la voce di menu no (funziona solo con poche parole).
Dove sto sbagliando? C’è forse un’impostazione che non conosco?
Vedere progetto allegato.

 

In effetti almeno una impostazione c'è e si chiama PasteAndMatchStyle che letteralmente significa Incolla e mantieni lo stile e pertanto credevo volesse significare l'esatto opposto di quanto cercavo.
C'è anche un RemoveFormat ma non ho capito come funziona.
Purtroppo su 127 comandi js implementati dalla web view riesco a farne funzionare solo pochissimi. 
Allego esempio che tiene conto di PasteAndMatchStyle.