go to post Julius Kavay · Oct 19, 2022 Assuming, fields which contains commas are quoted ("aaa,bbb,ccc") and (for the simplicity) fields does not contains quotes, then something like this should do the job ClassMethod CSV(filename) { s old=$system.Process.SetZEOF(1) // use $zeof instead of error trap s result=[] o filename:"r":0 i $t { u filename while '$zeof { read line i line]"" do result.%Push(..fields(line)) // ignore empty lines } } c filename d $system.Process.SetZEOF(old) q result } ClassMethod fields(line) { s a="", f=0, row=[] f i=1:1:$l(line) { s c=$a(line,i) i c=44,'f d row.%Push(a) s a="" continue i c=34 s f='f continue s a=a_$c(c) } q row } A test output: USER>s res=##class(DC.Help).CSV(fn) USER>zso res (0).(0).............: 12162 (0).(1).............: CHAPTER I (0).(2).............: Certain infectious and parasitic diseases (A00-B99) (0).(3).............: 003 (A20-A28) (0).(4).............: Certain zoonotic bacterial diseases (0).(5).............: A28 (0).(6).............: Other zoonotic bacterial diseases, not elsewhere classified (0).(7).............: A28 (0).(8).............: Other zoonotic bacterial diseases, not elsewhere classified (0).(9).............: N (0).(10)............: N (0).(11)............: N (0).(12)............: N (0).(13)............: N (0).(14)............: (0).(15)............: (0).(16)............: (0).(17)............: (0).(18)............: (0).(19)............: (0).(20)............: (0).(21)............: (0).(22)............:
go to post Julius Kavay · Oct 11, 2022 Oh yes, some 45 years ago, 2K (for caretaker and despooler), 4K as regular partition. Nowdays you need 2GB or 4GB! Just a factor of 10^6. And yes, I feel as a real developer too. The problems solution matters, not the tools.
go to post Julius Kavay · Oct 10, 2022 At least, you are one step further (in your initial post, you wrote "...because the code is hanging at Set tSc=Httprequest.Get(HttpURL)..."). Maybe the provided MAC number is wrong. The MAC Number CC:1B:E0:E2:3C:10 belongs to Cassia Networks. Is that the right number? I know exactly nothing about Cassia Networks and Cassia SDK... sorry.
go to post Julius Kavay · Oct 10, 2022 This is just a hint: your Get() argument should be URL-encoded (colons are not allowed in an URL): Set tSc=Httprequest.Get($zcvt(HttpURL,"O","URL"))
go to post Julius Kavay · Oct 10, 2022 You are mixing two different things... Property Data1 As list of %String; Property Data2 As %List; are two very different things. The first (Data1, equates to your DataObj.Services) is an object while the second one (Data2) is a simple scalar value (in this case a string which in its structure casually matches the inner structure of a $list() respective $listbuild() function). write $listvalid(oref.Data1) ==> 0 // NOT a list write $listvalid(oref.Data2) ==> 1 // a VALID list write $isobject(oref.Data1) ==> 1 // a valid (list)object write $isobject(oref.Data2) ==> 0 // not a valid (list)object $listnext() does NOT work on objects (your DataObj.Services) is an object
go to post Julius Kavay · Oct 8, 2022 For a string like "hallo" Cache will use 5+2 = 7 bytes. If that "hallo..." is longer then 253 bytes then length_of_string + 4 bytes will be used and if your "hallo..." is longer then 65535 bytes then length_of_string + 6 bytes will be used. But there is one more thing, you should know: the sum of the lengths of ALL properties, except the array(like) properties, can't be greater then that famous 3641144 magic number (if you use the standard Cache Storage). Array-like properties are those, which are stored in own nodes.
go to post Julius Kavay · Oct 6, 2022 Use this link as a starting point and consider using either $FIND() or $LOCATE() to narrow down the string you're looking for and then use $EXTRACT() to extract the href value. By the way, it's enough a short example string, posting nearly the whole page is an overkill and wasting space.
go to post Julius Kavay · Sep 30, 2022 Hence I wrote to OP, quote from my answer, "you ask WRC for a 'WriteStream()' method"
go to post Julius Kavay · Sep 30, 2022 According to WebSocket protocol, the maximum payload size is (2**(8*8))-1 octets, if I recall it right.
go to post Julius Kavay · Sep 30, 2022 The documentation of the %ToJSON() method is correct and yes, you can do do obj.%ToJSON() merely, this works only "on devices without protocol" like terminal, (sequential) file, etc. Everywhere, wehere the data bytes goes direct to the target. WebSocket isn't such a device. There is a "header part", with information fields like the command, masking, the length of the data, etc. You have two possibilities, a) you ask WRC for a "WriteStream()" method or b) you handle the whole WebSocket by hand (is not impossible) or c) you change your application logic and send the those messages in chunks.
go to post Julius Kavay · Sep 29, 2022 OK, somehow I miss the question. Do you need the VT100 escape sequences (see here, Table 3-6) or something else?
go to post Julius Kavay · Sep 29, 2022 You try to store a whole stream in one property of an persistent class, that won't work! But the solution is already there, see this article
go to post Julius Kavay · Sep 29, 2022 Yes, it would kill set $p(data,"x",2E6+1)="" set dynArr=[].%Push(data).%Push(data).%Push(data) set stream=##class(%Stream.GlobalCharacter).%New() do dynArr.%ToJSON(stream) try { set x=dynArr.%ToJSON() } catch e { write e.Name,! } write stream.Size,! write $length(data),! The output is <MAXSTRING> 6000010 2000000 As Steven Hobbs wrote, the limit is only set by the size of the (virtual) memory.
go to post Julius Kavay · Sep 28, 2022 It depends on two things,a) the (user) interface, your user uses and (telnet, web, an application, etc)b) where your inputs are handled (on server, on users device)
go to post Julius Kavay · Sep 28, 2022 The only important thing is, do they accept data with the arbitrary length. It's not of importance for you, how their API the incomming data handles: as string, as longstring, as stream, as array of bytes, etc.
go to post Julius Kavay · Sep 27, 2022 So one has a DEFAULT length of 50 and the other 3641144. But I thought more of the difference HOW MANY characters can they hold.
go to post Julius Kavay · Sep 27, 2022 Just a dumb question, what is the very difference between %VarString and %String regarding the storable string length? As far as I know, both have a length limit of 3641144 characters.
go to post Julius Kavay · Sep 27, 2022 I have nothing in common with HealtShare... but a property (Property rsXML As %String), like you mentioned, can hold up to 3.6E6 chars. If your data are longer then 3641144 characters then you definitely need to use streams (and if you intend to Base64 encode the data, then your data will be 33% longer)! You need to change the above property to something like Property rsXML As %GlobalBinaryStream; BUT this means, you have to adapt all your programs, methods, etc. where this property is in use! That won't be a joy rather a pain
go to post Julius Kavay · Sep 19, 2022 Hmm, ... will be difficult, but I give it a try ClassMethod DNA(dna) As %String { q $tr(dna,"CGAT","GCTA") }
