Computer – die neusten Beiträge

Verwandte Themen
faberheinrich
11.11.2020, 16:53

Beschwerdebrief Korrektur?

Liebe Leute, ich bitte Euch um eine kleine Korrektur. Meine Korrektur habe ich in Bold geschrieben. Bitte sagt mir kurz Bescheid, ob ich es richtig gemacht habe bzw. ob ich was versehen habe. Vielen herzlichen Dank für Eure Hile.

"Ich möchte mich beschweren über unsere Spanienreise. Wir haben eine vierzehntätige Reise bei Sie gebucht.

Uns wurde ein große Zimmer im Hotel Atlantis mit Aussicht auf das Mittelmeer versprochen, nur einige 100 Meter von Strand entfernt.

Wie groß war unsere Enttäuschung, als wir unsere Zimmer sahen. Es war nicht viel als ein Schrank größer.

Das Bett war schrecklich, es war wacklig, aus die Dusche kam kaum Wasser. Um ans Fenster zu gelangen, musste man über das Bett kriechen.

Die Aussicht war wenig romantisch. Wir starrten auf der Rückseite eines Hochhauses.

Zu Fuss wir gingen fast eine Stunde bis zum Meer und nacht konnten wir wegen lauter Musik nicht richtig schlafen. Und dafür haben wir 500,- Euro pro Person bezahlt. Da im Katalog vor den Preis von 500,- Euro ein akzeptables, geräumiges Hotelzimmer mit schöner Aussicht versprochen wurde und all diese Versprechungen vor Ort nicht eingehalten würden, fordern wir 40% des gezahlten Betrages zurück."

Mit freundlichen Grüßen

Natascha Lebedewa

Meine Korrektur:

Ich möchte mich über unsere Spanienreise beschweren. Wir haben eine vierzehntätige Reise bei Ihnen gebucht.

Uns wurde ein großes Zimmer im Hotel Atlantis mit Aussicht auf das Mittelmeer versprochen, nur einige 100 Meter von Strand entfernt.

Wie groß war unsere Enttäuschung, als wir unsere Zimmer sahen. Es war nicht mehr als ein Schrank größer.

Das Bett war schrecklich, es war wackelig, aus der Dusche kam kaum Wasser. Um ans Fenster zu gelangen, musste man über das Bett kriechen.

Die Aussicht war wenig romantisch. Wir starrten auf der Rückseite eines Hochhauses.

Zu Fuss gingen wir fast eine Stunde bis zum Meer und nachts konnten wir wegen lauter Musik nicht richtig schlafen. Und dafür haben wir 500,- Euro pro Person bezahlt. Da im Katalog vor dem Preis von 500,- Euro ein akzeptables, geräumiges Hotelzimmer mit schöner Aussicht versprochen wurde und all diese Versprechungen vor Ort nicht eingehalten wurden, fordern wir 40% des gezahlten Betrages zurück.

Computer, Deutsch, Schule, Deutsch als Fremdsprache, Deutsch als Zweitsprache, Germanistik, Grammatik, Korrektur, Lehrer
1 Antwort
QQwertz123
11.11.2020, 11:49

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

PC, Computer, Microsoft Excel, programmieren, VBA, VBA Programmierung, Range, VBA Excel
2 Antworten
PythonNeuling00
10.11.2020, 19:42
Mit Links

Wie ist dieser verbesserte Python Code zu Palindromen?

Verbesserter Code mit Hilfe der Antwort von alfredo153

#!/bin/python3
#Palindrome-Woerter in Textdatei erkennen
import string

#Funktion zum Erkennen von Palindromen
def check_palindrome(word):
    reverse = ''
    removable = string.punctuation + string.whitespace + string.digits
    for c in removable: #Sonderzeichen entfernen
        word = word.replace(c, '')
    if word in string.punctuation or word in string.whitespace: #Sonderzeichen abfangen
        return False
    for c in word[::-1]: #Wort rueckwaerts zusammen basteln
        reverse = reverse + c
    if reverse.lower() == word.lower(): #Rueckwaerts-Wort mit vorwaerts-Wort vergleichen
        return True
    else:
        return False

#Den Benutzer eine Textdatei oeffnen lassen
file = input('Path to file: ')
palindrome = []

try:
    with open(file, 'r') as f:
        lines = f.readlines()
except FileNotFoundError:
    print('File not found!')
    exit(0)

#Einzelne Woerter im Text der Funktion check_palindrome uebergeben
for line in lines:
    line = line.split(' ')
    for word in line:
        if check_palindrome(word):
            palindrome.append(word)
        else:
            continue

#Ergebnis anzeigen
print(len(palindrome), ' found!\n')
for i in range(len(palindrome)):
    print(palindrome[i].replace('\n', '')) #\n in Wort entfernen, da sonst zu viele Leerzeichen bei Output
Computer, programmieren, Informatik, Python
2 Antworten
PythonNeuling00
10.11.2020, 18:12
Mit Links

Verbesserungsvorschläge für mein Python Skript: Polindrome finden?

Hey,

ich habe heute ein kleines Python Skript geschrieben, um Polindrome in einer Textdatei zu erkennen. Polindrome sind Wörter, die rückwärts geschrieben genau den gleichen Sinn ergeben wie vorwärts geschrieben.

#!/bin/python3
#Polindrome-Woerter in Textdatei erkennen
import string

#Funktion zum Erkennen von Polindromen
def check_polindrome(word):
    reverse = ''
    removable = ['\n', '\t', '\r']
    for c in removable: # Zeug entfernen
        word = word.replace(c, '')
    for c in string.punctuation: #Sonderzeichen entfernen
        word = word.replace(c, '')
    for c in string.whitespace: #Leerzeichen entfernen, da sonst falsche Ergebnisse entstehen
        word = word.replace(c, '')
    if word in string.punctuation or word in string.whitespace: #Leer- und Sonderzeichen abfangen
        return False
    if word.isdigit() == True: #Zahlen abfangen, da z.B. 121 rueckwaerts auch 121 ergibt
        return False
    for i in range(len(word)-1, 0-1, -1): #Wort rueckwaerts zusammen basteln
        reverse = reverse + word[i]
    if reverse.lower() == word.lower(): #Rueckwaerts-Wort mit vorwaerts-Wort vergleichen
        return True
    else:
        return False

#Den Benutzer eine Textdatei oeffnen lassen
file = input('Path to file: ')
polindrome = []

try:
    with open(file, 'r') as f:
        lines = f.readlines()
except FileNotFoundError:
    print('File not found!')
    exit(0)

#Einzelne Woerter im Text der Funktion check_polindrome uebergeben
for i in range(0, len(lines)):
    lines[i] = lines[i].split(' ')
    for word in lines[i]:
        if check_polindrome(word) == True:
            polindrome.append(word)
        else:
            continue

#Ergebnis anzeigen
print(len(polindrome), ' found!\n')
for i in range(len(polindrome)):
    print(polindrome[i].replace('\n', '')) #\n in Wort entfernen, da sonst zu viele Leerzeichen bei Output

Die Projektidee habe ich von: https://www.gutefrage.net/frage/python-projekt-ideen#answer-357880884

Wie man rückwärts über eine Zeichenkette rotiert, habe ich von: https://stackoverflow.com/questions/7961499/best-way-to-loop-over-a-python-string-backwards

  • Hat jemand Verbesserungsvorschläge für meinen Code?
  • Ein kleines Feedback bitte
Computer, programmieren, Informatik, Python
2 Antworten
verreisterNutzer
09.11.2020, 22:38

Angst vor Identitätsdiebstahl/missbrauch?

Ich habe seit circa 8 Monaten manchmal extrem starke, sodass ich an fast nichts anderes denken kann, manchmal kaum, Angst davor, dass jemand über meine IP Adresse Kriminelle Sachen im Internet macht. Außerdem hab ich Angst dass diese Kriminellen oder Hacker , ich weiß garnicht wie ich die nennen soll, mich überwachen sozusagen also auf meine Handykamera zugreifen wenn sie wollen oder sowas. Das alles hat angefangen als ich im Februar auf ne Phishing mail bei eBay reingefallen bin. Es ist nichts wirklich passiert, also habe kein Geld verloren oder so. Aber seit dem habe ich oft panische Angst. Es ist nicht so das es wie ne Panikattacke kurz stark da ist und dann wieder weg ist , es ist eher so das es dann durchgehend da ist und ich daran denken muss und Angstgefühle habe. Diese werden befeuert durch Dinge wie zb. Dass vor ein paar Tagen als ich YouTube auf dem Fernseher schauen wollte ne Meldung kam dass ungewöhnlicher Datenverkehr festgestellt wurde. Oder vor Kurzem kam ne Meldung von Apple das mein Passwort bei Spotify in nem Datenleck aufgetaucht ist. Bei sowas kommen dann sofort wieder die Gedanken hoch. Und das ist echt schlimm dann...

wie realistisch würdet ihr meine Angst einschätzen das da wirklich was dran ist? Würde es aus der Sicht eines Kiminellen Hackers Sinn machen so vorzugehen oder überhaupt sowas zu machen?

Computer, IT, Psychologie, Angststörung, Angstzustände, Hacker, Hacking
3 Antworten

Meistgelesene Beiträge zum Thema Computer
Mehr meistgelesene Fragen zu Computer