Extracting a value from a text wave

Demo()

Function Setup()
    Make /T /N=0 /O conditions
    conditions[0] = {"cloudy"}      // Append a condition
    conditions[1] = {"sunny"}       // Append another condition
    conditions[2] = {"sunny"}
    conditions[3] = {"cloudy"}
    conditions[4] = {"rainy"}
End
 
// This is one way to do it using the Extract operation.
Function CountCondition1(w, condition)
    Wave/T w                    // Text wave containing conditions
    String condition                // "sunny", "cloudy", or "rainy"
 
    // Create free wave containing points set to the specified condition.
    // The free wave is automatically killed when the function returns.
    Extract /FREE w, temp, CmpStr(w[p],condition)==0
 
    Variable result = numpnts(temp)
    return result
End
 
// This is another way to do it using a loop. Either way is fine.
Function CountCondition2(w, condition)
    Wave/T w                    // Text wave containing conditions
    String condition                // "sunny", "cloudy", or "rainy"
 
    Variable result = 0
 
    Variable numPoints = numpnts(w)
    Variable i
    for(i=0; i<numPoints; i+=1)
        String str = w[i]
        if (CmpStr(str,condition) == 0)
            result +=1
        endif
    endfor
 
    return result
End
 
Function Demo()
    Setup()
    Wave/T conditions       // Created by Setup
 
    Variable numSunny = CountCondition2(conditions, "sunny")
    Variable numCloudy = CountCondition2(conditions, "cloudy")
    Variable numRainy = CountCondition2(conditions, "rainy")
 
    Printf "Sunny: %d; Cloudy: %d; Rainy: %d;\r", numSunny, numCloudy, numRainy
End