 |
|
BaselScript |
Beschreibung
List View
▀ ▀ ▀ ▀ JAVA ▀ ▀ ▀ ▀
import android.os.Bundle;
import android.widget.ArrayAdapter;
import android.widget.ListView;
import androidx.appcompat.app.AppCompatActivity;
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
import java.util.ArrayList;
public class MainActivity extends AppCompatActivity {
private ListView listView;
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
// Initialize the ListView
listView = findViewById(R.id.listView);
// Read data from a file
ArrayList items = readItemsFromFile("your_file.txt");
// Create an ArrayAdapter to populate the ListView
ArrayAdapter adapter = new ArrayAdapter<>(this, android.R.layout.simple_list_item_1, items);
// Set the adapter for the ListView
listView.setAdapter(adapter);
}
private ArrayList readItemsFromFile(String fileName) {
ArrayList items = new ArrayList<>();
try {
InputStreamReader inputStreamReader = new InputStreamReader(getAssets().open(fileName));
BufferedReader reader = new BufferedReader(inputStreamReader);
String line;
while ((line = reader.readLine()) != null) {
items.add(line);
}
reader.close();
inputStreamReader.close();
} catch (IOException e) {
e.printStackTrace();
}
return items;
}
}
▀ ▀ ▀ ▀ KOTLIN ▀ ▀ ▀ ▀
import android.os.Bundle
import android.widget.ArrayAdapter
import android.widget.ListView
import androidx.appcompat.app.AppCompatActivity
import java.io.BufferedReader
import java.io.IOException
import java.io.InputStreamReader
class MainActivity : AppCompatActivity() {
private lateinit var listView: ListView
override fun onCreate(savedInstanceState: Bundle?) {
super.onCreate(savedInstanceState)
setContentView(R.layout.activity_main)
// Initialize the ListView
listView = findViewById(R.id.listView)
// Read data from a file
val items = readItemsFromFile("your_file.txt")
// Create an ArrayAdapter to populate the ListView
val adapter = ArrayAdapter(this, android.R.layout.simple_list_item_1, items)
// Set the adapter for the ListView
listView.adapter = adapter
}
private fun readItemsFromFile(fileName: String): ArrayList {
val items = ArrayList()
try {
val inputStream = assets.open(fileName)
val reader = BufferedReader(InputStreamReader(inputStream))
var line: String?
while (reader.readLine().also { line = it } != null) {
items.add(line!!)
}
reader.close()
inputStream.close()
} catch (e: IOException) {
e.printStackTrace()
}
return items
}
}
▀ ▀ ▀ ▀ PYTHON ▀ ▀ ▀ ▀
import tkinter as tk
def read_items_from_file(filename):
items = []
try:
with open(filename, `r`) as file:
for line in file:
items.append(line.strip())
except FileNotFoundError:
print(f"File `{filename}` not found.")
return items
def populate_listbox(listbox, items):
for item in items:
listbox.insert(tk.END, item)
# Create the main application window
app = tk.Tk()
app.title("List View from File")
# Create a Listbox widget to display the items
listbox = tk.Listbox(app, width=50, height=20)
listbox.pack()
filename = `your_file.txt`
items = read_items_from_file(filename)
if items:
populate_listbox(listbox, items)
app.mainloop()
▀ ▀ ▀ ▀ DELPHI ▀ ▀ ▀ ▀
unit MainForm;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.ListView.Types,
FMX.ListView, FMX.StdCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
procedure ReadItemsFromFile(const FileName: string);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormCreate(Sender: TObject);
begin
// Read data from file and populate ListView
ReadItemsFromFile(`your_file.txt`);
end;
procedure TForm1.ReadItemsFromFile(const FileName: string);
var
FileStream: TFileStream;
StreamReader: TStreamReader;
ListItem: TListViewItem;
Line: string;
begin
// Clear existing items
ListView1.Items.Clear;
// Open file for reading
FileStream := TFileStream.Create(FileName, fmOpenRead);
StreamReader := TStreamReader.Create(FileStream);
try
// Read each line from the file and add it to ListView
while not StreamReader.EndOfStream do
begin
Line := StreamReader.ReadLine;
ListItem := ListView1.Items.Add;
ListItem.Text := Line;
end;
finally
// Close the stream
StreamReader.Free;
FileStream.Free;
end;
end;
end.
▀ ▀ ▀ ▀ BASEL SCRIPT ▀ ▀ ▀ ▀
scene=1 name="List of images" color_scheme=blue
// start script
section init
file name=files_list record=(#name,#extention,#length, #date) directory = #_directory_temp
read file=files_list
call list=full_list
end section
// list view definition
list full_list
tile=file name=files_list
tile=item name= #name typ=image directory=#_directory_images_examples w=150 h=150
tile=item name= #name
tile=item name= #length
tile=item name= #date
tile=button1 name= back typ=text text="<" action=back
end
// button back was pressed
action back
call script= examples_list
end
end scene 1