Home › 6_2008-2009 › Filename Utility
Advertisement
6_2008-2009 Complete Applications #197896

Filename Utility

Shannon Little
★★★★★
4.8 · Downloads: 2,341

This real time-saving program lets you format filenames to your liking. Don't you get really annoyed when you download your favorite MP3 music and there are those _'s in place of every SPACE, wish you could get rid of them out of your hundred of files??? Now YOU CAN! It will replace or remove characters from filenames, it format its CASE and will change file extensions. Get it today!!

AI

AI Summary: 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.

Source Code
original-source 
Upload
Function AsciiToUnicode(ByRef pstrAscii)
	
	Dim llngLength
	Dim llngIndex
	Dim llngAscii
	Dim lstrUnicode
	
	llngLength = LenB(pstrAscii)
	
	For llngIndex = 1 to llngLength
		llngAscii = AscB(MidB(pstrAscii, llngIndex, 1))
		lstrUnicode = lstrUnicode & Chr(llngAscii)
	Next
	
	AsciiToUnicode = lstrUnicode
	
End Function
Function UnicodeToAscii(ByRef pstrUnicode)
	Dim llngLength
	Dim llngIndex
	Dim llngAscii
	Dim lstrAscii
	
	llngLength = Len(pstrUnicode)
	
	For llngIndex = 1 to llngLength
		llngAscii = Asc(Mid(pstrUnicode, llngIndex, 1))
		lstrAscii = lstrUnicode & ChrB(llngAscii)
	Next
	
	UnicodeToAscii = lstrAscii
End Function
Original Comments (3)
Recovered from Wayback Machine