reorder text wave by alphabetic order

Function test()
	Make/T/N=8 w
	w[0] = "DA10_elecCal_2"
	w[1] ="DA10_elecCal_3"
	w[2] = "DA11_elecCal_2"
	w[3] = "DA11_elecCal_3"
	w[4] = "DA10_CurrentCal_2"
	w[5] = "DA10_CurrentCal_3"
	w[6] = "DA11_CurrentCal_2"
	w[7] = "DA11_CurrentCal_3"
	sort w w
End

Function Test()
	Make/O/N=12/T w
	w[0] = "DA10_elecCal_ch2_1001"
	w[1] = "DA10_elecCal_ch3_1001"
	w[2] = "DA10_elecCal_ch2_1002"
	w[3] = "DA10_elecCal_ch3_1002"
	w[4] = "DA10_elecCal_ch2_1003"
	w[5] = "DA10_elecCal_ch3_1003"
	w[6] = "DA11_elecCal_ch2_1001"
	w[7] = "DA11_elecCal_ch3_1001"
	w[8] = "DA10_CurrentCal_ch2_1001"
	w[9] = "DA10_CurrentCal_ch3_1001"
	w[10] = "DA11_CurrentCal_ch2_1001"
	w[11] = "DA11_CurrentCal_ch3_1001"

	Make/O/N=(12)/T w0, w1, w2, w3
	variable i
	string s0, s1, s2, s3
	for(i=0; i<12; i+=1)
		sscanf w[i], "%[^_]_%[^_]_%[^_]_%[^_]", s0, s1, s2, s3
		w0[i] = s0
		w1[i] = s1
		w2[i] = s2
		w3[i] = s3
	endfor
	Sort {w0, w3, w1, w2}, w
End