Domů › 3_2004-2005 › C Hex to VB Hex Convertor * Updated and Fixed*
Advertisement
3_2004-2005 Miscellaneous #141088

C Hex to VB Hex Convertor * Updated and Fixed*

Max Raskin
★★★★★
4.8 · Stažení: 2,341

* Thanks to Paul Mather I improved my lame skills in strings, now the function is MUCH shorter I have created a function that converts C Hex values (Example: 0x0001) to VB Hex values (Example: &H1) with no APIs , just one usefull function. And one things is fixed, in the updated version I put a removing of the all zeros in the hex, now fixed... :-)

AI

Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Zdrojový kód
original-source 
Upload
' this version will sort strings.
function arraysort(values())
 Dim i 
 Dim j 
 Dim smallest_value 
 Dim smallest_j 
 dim min
 dim max
 dim temp
 
 min = lbound(values,2)
 max = ubound(values,2)
	For i = min To max - 1
	smallest_value = values(0,i)
	smallest_j = i
	For j = i + 1 To max
		' See if values(j) is smaller. changed to strComp to work with strings.
		If strComp(values(0,j),smallest_value,vbTextCompare) = -1 Then
			' Save the new smallest value.
			smallest_value = values(0,j)
			smallest_j = j
		End If
		Next 'j
		If smallest_j <> i Then
			' Swap items i and smallest_j.
			for intA = 0 to ubound(values,1)
				temp = values(intA,smallest_j)
				values(intA,smallest_j) = values(intA,i)
				values(intA,i) = temp
			next 'intA
		End If
	Next 'i
arraysort = values
End function
Původní komentáře (3)
Obnoveno z Wayback Machine