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