Italian Recuperare testo da pagina web.

[Spinter]

Recuperare testo da Ducumenti Di google Pubblici.

Sono di nuovo a chiedere aiuto,mi servirebbe un esempio di come recuperare la stringa da questo documento pubblico del drive google o da una pagina web.
Potete aiutarmi con un esempio?



https://docs.google.com/document/d/18I8EDqqfaf70ERgEiStg45wldKsFQYRLAmxF26S7-Ko/edit?pli=1

 

[moster67]

Puoi testare con questo esempio postato gentilmente di NJDude:

http://www.b4x.com/forum/basic4android-updates-questions/21021-get-variable-value-online-stored-txt-file.html#post121339

Cambia il link nel codice con il tuo link.

In questo caso, ovviamente devi fare un po' di parsing per ottenere quello che vuoi. Se sei fortunato, forse Google mette a disposizione già dei API pronti per consultare i Documenti Google online?

 

[Spinter]

Ok ci sono riuscito adesso posso estrarre da un documento di google la frase
Bisogna renderlo pubblico il Documento:

Qui il link di esempio: https://docs.google.com/document/d/18I8EDqqfaf70ERgEiStg45wldKsFQYRLAmxF26S7-Ko/edit

Nel Documento cè scritto: $Pistola$Ciao sono spinter Grazie!$Sparato$

Uso $Pistola$ e $Sparato$ ' per sapere dove icomincia e finisce la mia frase!

Sub Process_Globals
Dim hc As HttpClient
End Sub

Sub Globals
Dim aa As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If FirstTime Then
hc.Initialize("hc")
End If

Dim req As HttpRequest
req.InitializeGet("https://docs.google.com/document/d/18I8EDqqfaf70ERgEiStg45wldKsFQYRLAmxF26S7-Ko/edit")
hc.Execute(req, 1)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub


Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)

Dim resultString As String
resultString = Response.GetString("UTF8")
'Work with the result
aa=resultString

Dim cc As Int
Dim dd As Int
Dim str1 As String
cc =InStr(aa,"$Pistola$")
dd =InStr(aa,"$Sparato$")
str1=aa.SubString2(cc,dd)
aa= str1.Replace("$Pistola$","")
ToastMessageShow(aa, True)

End Sub

Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log("Error connecting: " & Reason & " " & StatusCode)
If Response <> Null Then
Log(Response.GetString("UTF8"))
Response.Release
End If
End Sub

Sub InStr(StrVar As String,SearchStr As String)As Long
'*** Function by RBSoft
Dim x As Long
x = StrVar.IndexOf(SearchStr)
Return x
End Sub




[/url]

Se per voi e utile a qualchepersona faccio un piccolo tutorial.

 

[Spinter]

Si potrebbe rinominare il titolo in!!

Recuperare testo da Ducumenti da docs.google.com.