FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour extraer cadenas
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
extraer cadenas
Posted: Fri Mar 15, 2013 10:20 PM
Hola Amigos,

Tengo un fichero como sigue:

Code (fw): Select all Collapse
{
 "kind": "books#volumes",
 "totalItems": 1,
 "items": [
  {
   "kind": "books#volume",
   "id": "Vm85LgEACAAJ",
   "etag": "dQePHGu5guw",
   "selfLink": "https://www.googleapis.com/books/v1/volumes/Vm85LgEACAAJ",
   "volumeInfo": {
    "title": "La cura",
    "industryIdentifiers": [
     {
      "type": "ISBN_10",
      "identifier": "8499895328"
     },
     {
      "type": "ISBN_13",
      "identifier": "9788499895321"
     }
    ],
    "pageCount": 432,
    "printType": "BOOK",
    "contentVersion": "preview-1.0.0",
    "language": "en",
    "previewLink": "http://books.google.es/books?id=Vm85LgEACAAJ&dq=isbn:9788499895321&hl=&cd=1&source=gbs_api",
    "infoLink": "http://books.google.es/books?id=Vm85LgEACAAJ&dq=isbn:9788499895321&hl=&source=gbs_api",
    "canonicalVolumeLink": "http://books.google.es/books/about/La_cura.html?hl=&id=Vm85LgEACAAJ"
   },
   "saleInfo": {
    "country": "ES",
    "saleability": "NOT_FOR_SALE",
    "isEbook": false
   },
   "accessInfo": {
    "country": "ES",
    "viewability": "NO_PAGES",
    "embeddable": false,
    "publicDomain": false,
    "textToSpeechPermission": "ALLOWED",
    "epub": {
     "isAvailable": false
    },
    "pdf": {
     "isAvailable": false
    },
    "webReaderLink": "http://books.google.es/books/reader?id=Vm85LgEACAAJ&hl=&printsec=frontcover&output=reader&source=gbs_api",
    "accessViewStatus": "NONE"
   }
  }
 ]
}




Necesito por ejemplo obtener el contenido de title, pageCount, etc que tienen una longitud variable.

驴Hay alguna funci贸n en Harbour que permita eso?.

Muchas gracias.
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: extraer cadenas
Posted: Fri Mar 15, 2013 11:48 PM

elvira,

Podrias hacerle un recorrido con el ttxtfile.

Ejemplo

oTxt := ttxtfile( "miarchivo.txt" )

WHILE !oTxt:eof()
if '"title":' $ oTxt:cLine
cTitle := substr(oTxt:cLine, at(":", oTxt:cLine))
elseif '"pageCount":' $ oTxt:cLine
nPagCount := val(substr(oTxt:cLine, at(":", oTxt:cLine)))
endif
oTxt:skip()
ENDDO

Es al vuelo, esperemos te de una idea

William, Morales

Saludos



m茅xico.sureste
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: extraer cadenas
Posted: Sat Mar 16, 2013 02:02 AM
Hola

harbour cuenta con soporte nativo para Json aqui tienes un ejemplo

el json que tienes lo inclui en un archivo llamado json.txt, la idea es tenerlo accesible como texto
esta compilado con harbour directo sin usar ninguna lib de fivewin

hbmk2 demo.prg

Code (fw): Select all Collapse
function main()
    local cJson := memoread("json.txt")
    local hJson
    local item
    hb_jsondecode( cJson, @hJson )

    for each item in hJson["items"]
        ? "title: ", item["volumeInfo"]["title"]
        ? "pageCount: ", item["volumeInfo"]["pageCount"]
    end
return nil
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: extraer cadenas
Posted: Sat Mar 16, 2013 07:24 AM

Daniel Garcia-Gil,

De maestros sin duda..

William, Morales

Saludos



m茅xico.sureste
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: extraer cadenas
Posted: Sat Mar 16, 2013 09:34 AM
Queridos Amigos,

Muchas gracias a ambos!!.

No sab铆a lo del soporte JSON.

No obstante, en este archivo no tengo items como en el anterior, 驴c贸mo entones puedo por favor hacer el bucle FOR IN EACH?.

Code (fw): Select all Collapse
{
 "kind": "books#volume",
 "id": "SFO2lwEACAAJ",
 "etag": "a9baKSHSK9o",
 "selfLink": "https://www.googleapis.com/books/v1/volumes/SFO2lwEACAAJ",
 "volumeInfo": {
  "title": "CODIGO PENAL CON JURISPRUDENCIA",
  "authors": [
   "Morales Garc铆a"
  ],
  "publisher": "Aranzadi",
  "publishedDate": "2012",
  "industryIdentifiers": [
   {
    "type": "ISBN_10",
    "identifier": "8490142475"
   },
   {
    "type": "ISBN_13",
    "identifier": "9788490142479"
   }
  ],
  "pageCount": 2500,
  "printType": "BOOK",
  "categories": [
   "Education / General"
  ],
  "contentVersion": "preview-1.0.0",
  "language": "es",
  "previewLink": "http://books.google.es/books?id=SFO2lwEACAAJ&hl=&source=gbs_api",
  "infoLink": "http://books.google.es/books?id=SFO2lwEACAAJ&hl=&source=gbs_api",
  "canonicalVolumeLink": "http://books.google.es/books/about/CODIGO_PENAL_CON_JURISPRUDENCIA.html?hl=&id=SFO2lwEACAAJ"
 },
 "saleInfo": {
  "country": "ES",
  "saleability": "NOT_FOR_SALE",
  "isEbook": false
 },
 "accessInfo": {
  "country": "ES",
  "viewability": "NO_PAGES",
  "embeddable": false,
  "publicDomain": false,
  "textToSpeechPermission": "ALLOWED",
  "epub": {
   "isAvailable": false
  },
  "pdf": {
   "isAvailable": false
  },
  "webReaderLink": "http://books.google.es/books/reader?id=SFO2lwEACAAJ&hl=&printsec=frontcover&output=reader&source=gbs_api",
  "accessViewStatus": "NONE"
 }
}


Saludos muy cordiales.
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: extraer cadenas
Posted: Sat Mar 16, 2013 11:59 AM
Hola...

entonces no necesitas hacerlo...
en el ejemplo anterior lo que quise fue generalizar el proceso con FOR EACH, por si podrian venir mas datos en "items" en futuros JSON que pudieses leer

Json simplemente es un hash, podemos ver en el primer ejemplo que el contenido de "items" es un arreglo, cuyo primer elemento tambien es un hash

Code (fw): Select all Collapse
"items": [
聽 {
聽 聽"kind": "books#volume",
聽 聽"id": "Vm85LgEACAAJ",
聽 聽"etag": "dQePHGu5guw",
聽 聽"selfLink": "https://www.googleapis.com/books/v1/volumes/Vm85LgEACAAJ",
聽 聽"volumeInfo": {
聽 聽 "title": "La cura",
...


en una sola linea seria, sin el FOR EACH

Code (fw): Select all Collapse
hJson["items"][1]["volumeInfo"]["title"]


como ahora no existe ese arreglo asumo quedaria asi

Code (fw): Select all Collapse
hJson["volumeInfo"]["title"]
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: extraer cadenas
Posted: Sat Mar 16, 2013 03:46 PM
Daniel,

Un mill贸n de gracias, funciona fenomenal.

Una 煤ltima cosa, los acentos se ven as铆:


驴Sabes por qu茅 puede ser?.

He probado con AnsiToOEm y OemToAnsi y nada, se ven mal.

Salu2
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: extraer cadenas
Posted: Sun Mar 17, 2013 07:49 AM
Prueba con esto


Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN


function main()

    local cJson := memoread("json.txt")
    local hJson
    local item
    HB_LangSelect("ES")
    HB_CDPSELECT("ESWIN")
    hb_jsondecode( cJson, @hJson )

    ? "autor: ", hJson["volumeInfo"]["authors"][1]

return nil
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: extraer cadenas
Posted: Sun Mar 17, 2013 10:06 AM

Muchas gracias.

Hay que usar la funci贸n HB_UTF8TOSTR( cJson )

Has sido Daniel de una ayuda tremenda.

Saludos

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions