DSolve[-((-1 + Log[x*y[x]])*y[x]) + x*Derivative[1][y][x] == 0,y[x],x]