Elm:
टेक्स्ट फ़ाइल पढ़ना

module Main exposing (main)

import Browser
import Html exposing (Html, button, div, text)
import Html.Events exposing (onClick)
import File exposing (File)
import File.Select as FileSelect

type Msg
    = SelectFile
    | FileSelected (Maybe File)
    | ReadFile
    | FileReaderResult (Result () String)

type alias Model =
    { file : Maybe File
    , fileContent : Maybe String
    }

initialModel : Model
initialModel =
    { file = Nothing
    , fileContent = Nothing
    }

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of
        SelectFile ->
            (model, FileSelect.file [] FileSelected)

        FileSelected maybeFile ->
            ({ model | file = maybeFile }, Cmd.none)

        ReadFile ->
            case model.file of
                Just file ->
                    (model, File.readAsText file FileReaderResult)

                Nothing ->
                    (model, Cmd.none)

        FileReaderResult (Ok content) ->
            ({ model | fileContent = Just content }, Cmd.none)

        FileReaderResult (Err _) ->
            (model, Cmd.none)

view : Model -> Html Msg
view model =
    div []
        [ button [ onClick SelectFile ] [ text "Select a file" ]
        , case model.fileContent of
              Just content ->
                  div [] [ text content ]

              Nothing ->
                  text ""
        ]

main =
    Browser.element
        { init = \_ -> (initialModel, Cmd.none)
        , view = view
        , update = update
        , subscriptions = \_ -> Sub.none
        }