BigEndian UCS-2 Strings aus Stream auslesen

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

	Nicdel Betreff: BigEndian UCS-2 Strings aus Stream auslesen	Di, Jan 10, 2012 18:21 Antworten mit Zitat
UCS-2 Strings werden vorallem von Java verwendet, ich meinem Fall Minecraft. Mit diesen zwei Befehlen kann man Strings aus einem Stream auslesen, bzw reinschreiben. BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] Function WriteBString(Stream:TStream, Value$) WriteShort(stream,endian_sswap(Len(Value))) For Local i:Int = 1 To Len(Value) WriteShort(Stream, endian_sswap(Asc(Mid(Value, i, 1)))) Next EndFunction Function ReadBString$(Stream:TStream) Local text:String Local strlen:Short = endian_sswap(ReadShort(stream)) For Local i:Int = 0 Until strlen text :+ Chr(endian_sswap(ReadShort(stream))) Next Return text EndFunction Function endian_sswap:Short(x:Short) x = ((x Shr 8) \| (x Shl 8)); Return x EndFunction Vllt. findet ja jemand eine Verwendung. Mfg, Nicdel
Desktop: Intel Pentium 4 2650 Mhz, 2 GB RAM, ATI Radeon HD 3850 512 MB, Windows XP Notebook: Intel Core i7 720 QM 1.6 Ghz, 4 GB DDR3 RAM, nVidia 230M GT, Windows 7

Nicdel

Betreff: BigEndian UCS-2 Strings aus Stream auslesen

Di, Jan 10, 2012 18:21
Antworten mit Zitat

UCS-2 Strings werden vorallem von Java verwendet, ich meinem Fall Minecraft. Mit diesen zwei Befehlen kann man Strings aus einem Stream auslesen, bzw reinschreiben.

BlitzMax: [AUSKLAPPEN]

Function WriteBString(Stream:TStream, Value$)
    WriteShort(stream,endian_sswap(Len(Value)))
    For Local i:Int = 1 To Len(Value)
        WriteShort(Stream, endian_sswap(Asc(Mid(Value, i, 1))))
    Next
EndFunction


Function ReadBString$(Stream:TStream)
	Local text:String
	Local strlen:Short = endian_sswap(ReadShort(stream))
	For Local i:Int = 0 Until strlen
		text :+ Chr(endian_sswap(ReadShort(stream)))
	Next    
	Return text
EndFunction

Function endian_sswap:Short(x:Short)
	x = ((x Shr 8) | (x Shl 8));
	Return x
EndFunction

Vllt. findet ja jemand eine Verwendung.

Mfg, Nicdel

Desktop: Intel Pentium 4 2650 Mhz, 2 GB RAM, ATI Radeon HD 3850 512 MB, Windows XP
Notebook: Intel Core i7 720 QM 1.6 Ghz, 4 GB DDR3 RAM, nVidia 230M GT, Windows 7