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